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PROGRAMM-SERVICE 


ZASsTfSdiXSO 


"Wie auch zu unserer Stammzeitsclirift Happy-Computer bieien wir wieder alle 
in dip 'sm Sonderheft veröffentlichten Programme auf Diskette an. Da wir aber 
nie’ Ile Programme auf einer Diskette unterbringen konnten, haben wir sie 
Uj. ci Disketten im normalen DOS“2.0‘Format verteilt. Somit kann man also 
MC .as alte 810‘Diskettenlaufwerk verwenden. Übrigens ist Diskette 1 beid- 
sei' Diskette 2 einseitig bespielt. Da sich auf allen drei Diskettenseiten 
Y ein DOS,Sl["S-Pile befindet, können Sie die Disketten booten. Dazu müs- 

S'- nur die entsprechende Diskette ins Lauhverk schiebe n un d die Strom- 

gung des Computers einschalten. 

3ie irgendwelche Programme ausprobieren, sollten Sie sich Sicherheits- 
n anfenigen. Am einfachsten und schnellsten geschieht dies mit der 
..üction vom DOS-Menü aus. 

,enn Sie die Diskette 1 (mit dem Aufkleber nach oben) booten, gelangen Sie 
automatisch ins Turbo-Basic XL. Mit DIR erfolgt dann die Ausgabe des Inhalts¬ 
verzeichnisses auf dem Bildschirm. Sollten Sie noch den älteren Atari 300 ver¬ 
wenden, booten Sie bitte die zv/eite Seite von Diskette 1. 

Im Atari^Sonderheft ftnden Sie Programme in normalem Atari-Basic, in Turbo- 
Basic XL, ln Maschinensprache und in Assembler. Damit Sie die Programme 
auf Diskette besser zuordnen können, haben wir für die oben genannten Krite¬ 
rien jeweils einen bestimmten Extender gewählt. Sie lauten im einzelnen: 

XXXXXXXX. BfiS Atari-B asic. Um solche Programme laden zu können, müs¬ 
sen Sie sich entvreder in Atari-Basic oder in Turbo-Basic XL befinden. Achtung! 
Manche Basic-Programme können unter Turbo-Basic XL zu schnell ablaufen. 

XXXXXXXX.TUR Turbo-Basic XL. Solche Programme müssen unbedingt 
unter Turbo-Basic XL laufen. Da dieses Basic über einen erweiterten Befehls¬ 
satz verfügt, ist es nicht kompatibel zum Atari-Basic. Sollten Sie dennoch ein soL 


ches Programm mit dem Standard-Atan-Basic laufen lassen, erhalten Sie ent¬ 
sprechende Fehlermeldungen. 

XXXXXXXX. M6S MAC/65-Quelltexte. Solche Dateien müssen unbedingt 
mit dem MAC/6S-Assembler assembhert werden. Mil Basic lassen sie sich 
nicht verarbeiten. 

XXXXXXXXjCOM Objekt-Code. Hierbei handelt es sich um Programme, 
die man .sonst mit AMPEL (Ataii-Mnschinen-Pro^amm-Eingabe-Lisiing) ein¬ 
geben muß. Um solche Programme zu starten, v^rählen Sie im DOS-Menü die 
Funktion »L« und geben dann den entsprechenden Fhogrammnamen ein. 
Anschließend wird das Programm geladen und automatisch gestanet. Wenn 
Sie sich in Turbo-BFisic XL befinden, lassen sich solche Programme auch mit 
»BRUN "D:XXXXXXXX.COM« auf rufen und anschließend starten. 

XXXXXXXX.SYS System-Dateien (DOS 2.5). Auf der Rückseite von Diskette 
1 befindet sich außerdem noch ein DOS.SYS'FiIe mit 145 Sektoren Länge Hier¬ 
bei handelt es sich um die abgespeckte Turbo-Basic XL-Version für den Atari 
400 oder 800 mit mindestens 48 KByte-RAM. Wenn Sie diese Diskette booten, 
gelangen Sie automatisch ms Turbo-Basic. 

Damit wären also die einzelnen Programmtypen erklärt. Sollten Sie Probleme 
mit den Programmen auf den LeserservicG-Disketten haben, empfiehlt es sich, 
die entsprechenden Erläuterungen im Sonderheft genau und aufmerksam 
durchzulesen. So kann manch ein Problem gelöst vrerden. 

Bestell.-Wr. l.HÖ6S2I]^ DM 34,90* * (2 Disketten) 

*inkl. MwSi:. Uciverbindliclit? Preis^?rnprQh3uDg. 






AT AR I 8DOXL/130XE/800 

Tajbo-Basic 

Der schnelle Basic-Interpreter für den 
Atari. Auf der Diskette befindet sich je 
eine Version für den Atari 800XL und 
eine für den Atari 800 mit mindestens 48 
KByte-RAM. Aus Ausgabe 13/85. 

JRMPEL 

Atari-Maschinen-Programm-Einga be- 
Listing. Aus Ausgabe 13/85. 

Ätari-Prüf^ummer 

Emgabehilfe für alle in Happy- 
Computer veröffentlichten Basic-Pro- 
gramme. 

Jiunpez II 

Listing des Monats aus Ausgabe 8/34, 
um die Geschvjindigkeit von Turbo- 
Basic zu demonstrieren. 

Mapc-Painter 

Listing des Monats aus Ausgabe 3/86. 
Ein Zeichenprogramm, das an Turbo- 
Basic angepaßt wurde. 

Alle 5 Programme auf einer Diskette 
für den ATARI 800XL/130XE/800. 

Bestell-Nr. LH 8S12B, DM 29,90* 

ATARI 800XL 

Pl-äfsiimmer 

Eingabehilfe für alle in Happy- 
Computer veröffentlichten Basde-Pro- 
grammer 

Gt üheiiaer 

M: creen-Editor und 20 fertigen Sze- 
uej Spiel), aus Ausgabe 5/85, 

24 in Graükstiife 0 

Ec e für farbige Schrift (Utility), aus 
Ai be 6/85. 

DL dp 

Für die schnelle Rettung (Utility), aus 
Ausgabe 8/85. 


Ölsac:he 

Mit dem Atari auf Ölsuche (Spiel), aus 
Ausgabe 8/85. 

Äutostart 

Basic-Programme automatisch starten 
(Utility), aus Ausgabe 9/85. 

Hudu 4.0 

Mehr Speicher mit der 1050 Floppy 
CUtihty), aus Ausgabe 10/35. 

Alle 7 Programme auf einer Diskette 
für den Atari 300 XL. 

Bestell-Njr. LH 3S10 B. DM 29,90* 


ATARI 48 KByte-RAM 

Magic Paintei' 

Unser Listing des Monats in der Aus¬ 
gabe 3/85 ist ein Grafikprogramm, das 
sich mit anderen Malprogrammen die¬ 
ser Art durchaus messen kann. Beson¬ 
ders gelungen ist die einfache Bedie¬ 
nung, da man mit dem Joystick sov/ohl 
im Haupt- als auch in den Untermenüs 
sämtliche Punkte anwählen kann. Der 
elektronische Malkasten verfügt über 
16 Menüpunkte und bietet eine Grafik- 
auflösung von 160x98 Pixels. 

Gmfikdemo 

Alle 356 Farben werden auf dem Bild¬ 
schirm dargestellt, Eine Farbspielerei, 
die die hervorragenden Grafikfähig¬ 
keiten der Atari-Computer beweist 
(Eainbow-Effekt). Aua Ai^gabe 3/85. 

Vajdablen-Dmap 

Mit diesem Programm können Sie die 
verv/endeten Variablen eines anderen 
Programms auf dem Bildschirm listen. 
Ein wichtiges Uiiüty, das Ihnen dis 
lästige Fehlersuche in längeren Basic- 
Programmen erleichtert. Aus Ausgabe 
2/85. 


Wie die Bilder laufen lernen 

Mit dem Utility (‘Power-MoverHü können 
Sie laufende Bilder schnell und pro¬ 
blemlos erzeugen. Für alle, die sich an 
die Programmierung von Player- 
Missile-Grafiken heranw^agen. Aus 
Ausgabe 3/85. 

Statusseüe mil Uhr 

Damit Sie beim Programmieren nicht 
die Zeit vergessen, hilft nur eine stän¬ 
dig sichtbare Zeitanzeige. Mit diesem 
Programm können Sie eine zusätzliche 
Statuszeile oberhalb des Eüdschirms 
generieren. Aus Ausgabe 1/85, 

Alle 5 Programme auf Diskette für Atari 
mit mindestens 43 KEyte-RAM. 

BesteU-Nr. LH 8503 B* DM 23 , 90 * 


ATARI 48 KByte-RAM 

Diamantenfleber 

Unser Listing des Monats aus der Aus¬ 
gabe 3/85 ist eine wahre Schatztruhe. 
Bereicheru Sie sich an bunt glitzernden 
Diamanten, die kunterbunt in einem 
Bergv^erk verteilt sind. Aber Vorsicht! 
Die Stollen sind sehr unstabil. Eine fal¬ 
sche Bevregung genügt, und Sie v,^r- 
den von losen Gesteinsbrocken 
erschlagen. Ein Spiele-Designer sorgt 
bei unserer exzellenten »Bouldcr 
Dashrt-Variante für anhaltende Span¬ 
nung. EnmerfenSie Ihre eigenen Eerg- 
werkstollen, aber mit Bedacht, denn 
nicht selten ergibt sich bei einem Bild 
nur ein Lösungsweg. 

Die Schatzhöhle 

Wer möchte sich nicht auch mit einem 
Schatz bereichern. Wer dazu nicht 
unbedingt eine Weltreise unterneh¬ 
men möchte, kann mit seinem Atari 
800XL in eine Schat2höhle eindringen. 
Gefährhche Tiere wie Skorpione, Rat¬ 


ten und Schlangen erschweren die 
Suche. Nur mit viel Geschick können 
Sie Ihren Geldbeutel - aber nur im 
Spiel - auffüllen. Aus Ausgabe 1/35. 

Zeilen^auber 

Die wichtigste RENUMBER-Funktion 
fehlt leider im Standard-Atari-Basic. 
DiGses Programm behebt diesen Man¬ 
gel. Es ist leicht zu bedienen. Einfach 
das Basic-Programm von der Diskette 
laden, »RUN« eingeben, und das ent¬ 
sprechende Objekt-File wird auf Dis¬ 
kette geschrieben. Dann nur noch vom 
DOS-Menü aus mit der Funktion »L« das 
Objekt-File laden und mit »B« zurück ins 
Basic gehen. Wenn Sie ein Basic- 
Programm umnumerieren möchten, 
geben Sie einfach »PRINT USR (8044)« 
ein, und Ihr Programm vrird wunschge¬ 
mäß umnumeriert. Aus Ausgabe 11/84. 

Jumper n 

Ein professionell gemachtes, in Basic 
geschriebenes Spiel. Exzellente Pro¬ 
grammierung, ein Kighscore-Zähler 
und eingebautes Demo w^erden selbst 
Zvjeifler schnell überzeugen. Auf musi¬ 
kalische Untermalung wurde großer 
Wert gelegt, und die verschiedenen 
Screens sind brillant gemacht. Genau 
das richtige Programm für kalte Win¬ 
terabende. Listing des Monats. Aus 
Ausgabe 8/84. 

Mop - Der Goldgräber 

Schnelligkeit und guter Sound zeich- 
uen dieses Spiel aus. Die Soundfähig¬ 
keiten sind wirklich hervorragend. 
Viele Bilder sorgen bei diesem Pro¬ 
gramm für viel Abv.rechslung. Ausgabe 
7/84. 

ADe 5 Programme auf Diskette für Atari 
mit mindestens 48 KByte-RAM. 

Eestell-Nr. LH B502 DM 29,90* 


Bestellungen aus der Schweiz richten Sie bitte direkt an: MarktTechnik Vertriebs AG, KoUerstr. 3, CH-6300 Zug, Tel 042/415656. 
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4 1s Atari-Besitzer kommt man 
sich manchmal wie auf einer 
einsamen Südsee-Insel vor. 
Sucht man Informationen oder Listings 
für seinen 800XL oder 130XE in deut¬ 
schen Computerzeitschriften, sitzt man 
leider allzuoft auf dem Trockenen. Die¬ 
sem Notstand wollen wir mit diesem 
Sonderheft abhelfen. Hier finden Sie 
eine Fülle von Listings und Informatio¬ 
nen, die Sie hoffentlich für die lange 
Durststrecke entschädigen. Der Atari 
800XL/130XE zählt schließlich nach 
wie vor zu den leistungsfähigsten der¬ 
zeit erhältlichen Heimcomputem. Bis 
zu 256 gleichzeitig darstellbare Farb¬ 
schattierungen und die Player Missile- 
Grafik, mit der sich einige Effekte viel 
besser umsetzen lassen als mit Sprites, 
sind nicht zu übersehen. Berücksichtigt 
man dann den sehr günstigen Anschaf¬ 
fungspreis des Atari 800X17130XE, ist 
dessen Preis/Leistungsverhältnis wirk¬ 
lich von kaum einem Heimcomputer zu 
schlagen. Auch die Peripherie, also 
Disketten-Laufwerke und Drucker, ist in 
letzter Zeit preiswert geworden. 

Da wären aber noch die neuen 16-Bit- 
Computer. Man weiß, daß der Atari 
800XL und der 130XE mit einer 8-Bit- 
CPU vom Typ 6502 ausgestattet ist. 
Damit scheint klar zu Sein, daß ein 
16-Bit-Prozessor viel leistungsfähiger 
sein muß als das 8-Bit-Gegenstück. 
Zählt also der 800XL im Vergleich zum 
ST zum alten Eisen? Sicher kann der 
800XL nicht mit der Grafikaufiösung 
oder der Geschwindigkeit des ST kon¬ 
kurrieren. Aber einen ganz großen 
Pluspunkt gibt es für den 800XL näm¬ 
lich Software für jeden Zweck. Als Spie¬ 
lecomputer zum Beispiel, ist der ST zur 
Zeit noch keine Alternative. Natürlich 
wird es ln Zukunft viel Software für die¬ 
sen Computer geben, aber wer sofort 
loslegen möchte und vorzugsweise auf 
fertige Programme Wert legt, ist mit 
dem 800XL besser bedient. 

Als wirklich hervorragendes Beispiel 
für ausgezeichnete Software mag 
unser Turbo-Basic-lnterpreter mit zuge¬ 
hörigem Compiler dienen. Beide Pro¬ 



gramme finden Sie in diesem Sonder¬ 
heft - natürlich zum Abtippen. Sie brau¬ 
chen also nur ein wenig Zeit zu investie¬ 
ren und haben anschließend einen 
Interpreter und einen Compiler, die es 
in sich haben. Geschwindigkeitsver¬ 
gleiche haben nämlich ergeben, daß 
Turbo- Basic XL seinem Namen alle Ehre 
macht; dieser Interpreter zählt zu den 
schnellsten, die es für den Atari gibt. 
Der dazu passende Compiler compiliert 
sogar in normalem Basic geschriebene 
Programme. Diese Programme sind 
dann wirklich die absoluten »Renner«, 
Und damit Sie Ihr Turbo-Basic XL auch 
gleich ausprobieren können, haben wir 
einige Programme in dieser Program¬ 
miersprache veröffentlicht. 

Warum sollte man also neidisch wer¬ 
den, wenn in den meisten Zeitschriften 
mehr über andere Computer berichtet 
wird. Schließlich wird man einige Zeit 
brauchen, bis man alle in diesem Son¬ 
derheft veröffentlichten Programme 
ausprobiert hat. Oder bauen Sie sich 
doch die eine oder andere Hardwareba¬ 
stelei nach. Sei es eine Zehnertastatur 
oder ein Cartridge-Experimentier-Sy- 
stem, das Angebot ist reichhaltig und 
sorgt sicher für einige unterhaltsame 
Stunden. 

Ebenfalls in diesem Sonderheft fin¬ 
den Sie eine Umfrage, bei der es eine 
Menge schöner Preise als Belohnung 
fürs Mitmachen zu gewinnen gibt. Wir 
möchten nämlich gerne Ihre Meinung 
zu diesem Sonderheft wissen. Schließ¬ 
lich brauchen wir Ihre Anregungen und 
Vorschläge, um weitere Sonderhefte 
und natürlich vor allem unsere Stamm¬ 
zeitschrift Happy-Computer für Sie so 
interessant wie möglich zu gestalten. 
Unter allen Einsendungen verlosen wir 
unter anderem zwei Atari 1050 Disket¬ 
ten-Laufwerke und einen Atari 1029 
Nadel-Matrixdrucker. Also nicht lange 
zögern! Fragebogen ausfüllen, in ein 
Kuvert stecken und ab die Post an die 
Redaktion. Die Gewinner werden dann 
in einer der nächsten /Visgaben von 
Happy-Computer bekanntgegeben. 

Werner Breuer 
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Spiele, die es in sich haben 10 



Das Atari IQSO-Diskettenlaufwerk wird zur Rennfloppy 7 


Kdxettens&yke 

Wer keine Zeit oder keine Lust hat, alle 
Programme selbst in mühevoller Klein¬ 
arbeit abzutippen, kann wieder auf den 
bewährten Diskettenservice zurück¬ 
greifen. Es sind hier sämtliche Programme 
des Sonderhefts auf zwei Disketten 
erhältlich. 

Beslelfinummer IH 86 $2D 29,90 DM 

(2 Disketten) 
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Auf die Verbindung kommt es an (Schnittstellen) 

6 

Rasende Daten 

(»Floppy-Speeder« für das Atari 1050-Laufwerk) 
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Die Raupe wird zum Schmetterling 
(Speichererweiterung für den 800XL) 
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Bastekien 

Cartridge-Experimente leichtgemacht 
(Experimentiersystem) 

12 

PIA - die dritte Schnittstelle 
{Zusatztastatur am Joystickport) 

17 

Roboter im Griff 
(Robotersteuerung) 

21 

Das sdineUsk Bask 

Der große Turbo-Basic-Teil 

24 

So funktioniert der Turbo-Basic-Compiler 
(Grundlagen) 

25 

Der Unterschied liegt im Detail 
(Kompatibilität zwischen Atari-Basic und 
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30 

Auf die Taste, fertig, los! 
(Geschwindigkeitsvergleich) 

32 

Zum AUippen: 

Inlerpieler 

34 

Compiler 
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Von der Ordnung zum Chaos-Apfelmännchen 
auf dem Atari 
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Grafikspielereien in Turbo-Basic XL 

67 

Mehr Tempo für Player Missiles 

69 

Daten komprimiert gespeichert 

70 

Anwemlangs^Usiittg 

Ordnung muß sein (Disksorter) 

71 

Spiek^Usiings 

Submission - ein Weg voller Gefahren 
(Labyrinth-Spiel) 
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Vorsicht Falle (Aktion-Spiel) 

81 

Pacman mal 2 

(Pacman-Variante für zwei Personen) 

84 
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Bittgabehilfen 

AMPEL-Version 1.1 

87 

Prüfsummer paßt auf 

90 

Tips&Triiks 
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{Fillroutine) 

93 
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96 
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(Windowroutine) 

103 
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110 
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110 
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{Löschroutine) 

112 

Daten schnell zur Hand 
(Schnelladeroutine) 

113 
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114 
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Compiler 
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115 
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DOS-Parade 
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Auf die Verbindung 

kommt es an 


Schnittstellen stellen die Verbin¬ 
dung zwischen Computer und 
Außenwelt dar. Wir haben zwei 
Interfaces unter die Lupe ge¬ 
nommen. 

W f ill man seine Programme 
nicht nur auf dem Bildschirm 
bewundern, so benötigt man 
einen Drucker und daneben auch eine 
passende Schnittstelle Beim Atari kann 
man dieses Problem auf zwei Arten 
lösen. Besitzt man einen Original*Atari- 
Drucker, wie zum Beispiel den Atari 
1029, so ist keine separate Schnitt¬ 
stelle nötig. Diese Drucker sind nämlich 
dafür ausgelegt, ihre Daten über den 
seriellen Bus des Atari zu empfangen. 
Der Nachteil dabei ist, daß solche 
Drucker wirklich nur für den Atari ver¬ 
wendungsfähig sind. Bei einem 
Systemwechsel muß man sich dann 
zwangsläufig einen neuen Drucker 
anschaffen. 

Die Alternative hierzu ist ein beliebi¬ 
ger Drucker mit Centronics-Schnitt- 
stelle. Diese Schnittstelle entspricht 
einer bestimmten Norm und hat die 
Eigenschaft, Daten parallel zu verarbei¬ 
ten. Die Datenübertragung des Atari 
jedoch erfolgt seriell. Daher muß eine 
Schnittstelle die Wandlung des Daten¬ 
formats vornehmen. Bis vor etwa zwei 
Jahren gab es deshalb bei Atari auch 
das Interface 850 zu kaufen. Neben 
einer Centronics-Schnittstelle waren 
hier auch vier serielle Schnittstellen 
vom Typ RS232 eingebaut. Daran las¬ 
sen sich vor allem Akustikkoppler und 
auch einige Drucker anschließen. Die¬ 
ses Interface ist jedoch nicht mehr er¬ 
hältlich, und so übernahmen es ver¬ 
schiedene Fremdhersteller, die Schnitt¬ 
stellen für den Atari anzubieten. 

Eine dieser Schnittstellen nennt sich 
Interface 850 XL und kostet rund 
400 Mark inklusive Netzteil und Druk- 
kerkabel. Neben einer Centronics- 
Schnittstelle ist zwar nur eine RS232- 
Schnittstelle eingebaut, diese genügen 
allerdings für die meisten Anwendun¬ 


gen. Der RS232-Teil des Interfaces ist 
voll kompatibel zur alten Atari-850- 
Schnittstella Den Centronics-Teil je¬ 
doch hat man etwas erweitert. Ein 
Nachteil der 850-Schnittstelie gegen¬ 
über der Verwendung der Origi- 
nal-Atari-Drucker war nämlich die feh¬ 
lende Codewandlung der Grafikzei¬ 
chen. Nicht jeder Drucker, der an die 
Centronics-Schnittstelle angeschlos¬ 
sen werden kann, ist auch in der Lage, 
Grafikzeichen zu drucken {zum Beispiel 
Typenraddrucker}. Darum werden alle 
Codes unverändert an den jeweiligen 
Drucker geschickt. Dieser Nachteil läßt 
sich nur durch entsprechende Treiber¬ 
software wieder beheben. 

Beim Interface 850 XL hat man nun 
versucht, diesen Nachteil direkt mit der 
Schnittstelle wieder wettzumachen. 
Das Interface ist in vier verschiedenen 
Druckmodi zu betreiben, die über eine 
kurze Steuersequenz ausgewählt wer¬ 
den. Im ersten Modus werden alle Zei¬ 
chen ohne Codewandiung an den Druk- 
ker geschickt. Im zweiten Modus, der 
standardmäßig eingestellt Ist und dem 
850-lnterface-Modus entspricht, wird 
nur der »Carriage Return«-Code umge¬ 
wandelt. Der Drucker benötigt zum Zei¬ 
lenvorschub nämlich den Code 13, 
während der Atari dazu den Code 155 
verwendet. Der dritte Druckmodus ist 
für Drucker gedacht, die nicht grafikfä¬ 
hig sind. Alle Codes, die beim Atari mit 
Grafikzeichen belegt sind, werden ein¬ 
fach in Standard-ASCII-Codes umge¬ 
wandelt. Druckt man nun beispiels¬ 
weise ein Listing aus, in dem Grafikzei¬ 
chen Vorkommen, so erscheinen diese 
zwar nicht in ihrer richtigen Form, der 
Drucker jedoch interpretiert diese Zei¬ 
chen wenigstens nicht als Steuerco¬ 
des. Wie der Zeichensatz des Atari in 
diesem Modus aussieht, sehen Sie in 
Bild 1. Der vierte Modus ist für grafikfä¬ 
hige Drucker gedacht. Mit jedem Grafik¬ 
zeichen wird auch ein entsprechender 
Steuercode an den Drucker geschickt, 
der ihn in den Grafikmodus umschaltet. 
Leider war man hierbei nicht ganz kon¬ 
sequent. Alle invertierten Zeichen wer¬ 


den nicht invertiert gedruckt (Bild 2). 
Bei normalen Basic-Listings fällt dies 
nicht weiter ins Gewicht. Verwendet 
man aber beispielsweise in einem Pro¬ 
gramm Maschinenunterroutinen, die 
als Strings und somit in Form von Grafik¬ 
zeichen abgelegt sind, enthät das 
Druckerlisting schlichtweg falsche 
Informationen. 

Neben den beiden Schnittstellen 
enthält das Interface 850 XL auch noch 
ein Kassettenrecorder-Interface. Man 
kann so statt des Atari-Datenrecorders 
auch jeden anderen handelsüblichen 
Kassettenrecorder an den Atari an¬ 
schließen. 

Benötigt man keine RS232-Schnitt- 
stelle, kann man sich auch ein reines 
Druckerinterface, also nur mit Centro¬ 
nics-Schnittstelle, kaufen. Zum Beispiel 
das Atari-Interface 72000 zum Preis 
von rund 250 Mark. Es benötigt kein 
Netzteil, da es direkt vom Atari mit 
Strom versorgt wird. Das Gehäuse ist im 
Druckerkabel integriert. Mit Hilfe von 
Dipschdtern kann man auch hier zwei 
verschiedene Druckmodi einstellen. 
Der erste Modus schickt, mit Aus¬ 
nahme des »Carriage Return«- 
Zeichens, alle Codes unverändert wei¬ 
ter und entspricht somit wieder dem 
850-lnterface von Atari. Der zweite 
Modus ist speziell für Besitzer des 
Atari-Schreibers interessant. Dieses 
Textverarbeitungsprogramm benutzt 
recht seltsame Codes für die deut¬ 
schen Umlaute. Bei manchen Druckern 
kann es daher zu Schwierigkeiten beim 
Ausdruck kommen. Durch eine ent¬ 
sprechende Codewandlung hebt die¬ 
ses Interface diesen Nachteil auf. 

Neben diesen beiden Interfaces sind 
vor allem aus den USA noch eine Reihe 
von Druckerschnittstellen, die mehr 
oder weniger dieselben Funktionen 
ausüben, auf dem Markt. Generell kann 
man sagen, daß die Anschaffung eines 
Druckerinterfaces und eines normalen 
Druckers dem Kauf eines Atari- 
Druckers vorzuziehen ist. Dies gilt vor 
allem dann, wenn man plant, sich im 
Laufe der Zeit einen anderen Computer 
anzuschaffen. 

(Wolfgang Czemy/wb) 

Bezugsquellen; 

Kunkel Industriebedarf, Zweibrückener Str, S, 7000Stuttgart 31, 
Tel (0711JSS4711 

Reinhard Wiesemann, Windcenbachstr. 3a, 5300 Wuppertal 2j 
Tel. (0202) 505077 
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Bild 1. Beispiel&ausdruck mit dem 
850XL-lnterfaceL In Modus 3 werden 
sämtliche Steuer^ und Grafikzeichen 
In ASCII-Zeichen umgewandeit. 


f-’in T-^ n /CH2-4567B9: ;< = >?§ ABCDEFGHI 

JK:LnWOPQRSTUVWXYZÄÖü^_*ÄbccSe’f ghl jkl mnopqrstuvwxyz^ ’ h H d n ^ + i -h#« 

! t-41 *■ 

/01254S6709; ; <=^>?1ABCDEFGHI JKLMMOPGRSTUVWXYZÄoü^_*abcdetghi j 
kl mnopqrstuvwxyE-Ä- ' *^4 ► 


Bild 2. In Modus 4 lassen sich auf 
einem grafikfähigen Drucker auch 
Steuer- und Grafikzeichen wleder- 
geben. 
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Rasende 

Daten 

Die Erweiterung »High Speed 
1050« macht ihrem Lau^erk 
Beine und erhöht auch noch die 
Speicherkapazität. 

D er Roppy-Speeder »High 
Speed 1050<s für das Atari 
1050-Laufwerk besteht ledig¬ 
lich aus einer kleinen Erweiterungspla¬ 
tine, Auf dieser Platine befinden sich 
neben einigen Gatterbausteinen auch 
ein neuer EPROM, ein RAM-Baustein 
und ein Prozessor vom Typ 6502. Zum 
Einbau der Erweiterung muß man als 
erstes das Gehäuse der Diskettensta¬ 
tion öffnen. Dann hebt man vorsichtig 
das Laufwerk aus seiner Halterung. Nun 
liegt die Hauptplatine, auf der sich der 
alte ROM- und der alte RAM-Baustein 
befinden, offen da. Diese beiden ICs 
werden aus ihren Sockeln gezogen und 
statt dessen die Erweiterongsplatine in 
eine der frei gewordenen Fassungen 
gesteckt. Der Einbau ist hiermit bereits 
beendet. Es versteht sich von selbst, 
daß man dabei größte Vorsicht walten 
lassen muß. Der Garantieanspruch 
erlischt nämlich, sobald die Abschir¬ 
mung der Hauptplatine entfernt wurde. 

Schnell wie der Wind 


Ein auf diese Weise umgebautes 
Laufwerk hat nun mehrere Vorteile. 
Zunächst sorgt das neue EPROM 
dafür, daß man Disketten nun auch mit 
doppelter Dichte formatieren kann. Das 
normale 1050er-Laufwerk kann ja 
neben der einfachen Schreibdichte 
bereits mit erhöhter Schreibdichte for¬ 
matieren. Bei der einfachen Dichte wird 
mit 720 Sektoren von je 125 Byte gear¬ 
beitet. Das ergibt eine Speicherkapazi¬ 
tät von 88 KByte. Bei der erhöhten 
Schreibdichte steigt die Zahl der Sekto¬ 
ren auf 1040 an, pro Sektor sind aber 
immer noch 125 Byte vorgesehen. Oie 
Speicherkapazität ist also auf 126 
KByte gestiegen. Doppelte Dichte 
bedeutet nun, daß man zwar wieder nur 
über 720 Sektoren, diesmal jedoch von 
je 256 Byte und somit über 180 KByte 
Speicherplatz verfügt. 

Die Formatierung auf doppelte 
Schrerbdichte erfordert natürlich auch 
ein neues DOS. Aus diesem Grund 
bekommt man zusammen mit der Erwei- 
terungspiatine auch gleich eine Dis¬ 
kette mit zwei verschiedenen DOS- 
Versionen mitgeliefert. Bei »Warp- 
Speed-DOS« handelt es sich um ein 
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Acht Bauteile verwandeln ein lOSD-Laufwerk In eine Rennfloppy 


erweitertes DOS 2.0, das wahlweise 
Disketten mit einfacher oder doppelter 
Dichte verarbeitet. Die andere DOS- 
Version mit dem Namen »MYDOS« ist 
auch interessant. Hiermit kann man 
auch wieder unterschiedliche Schreib¬ 
dichten formatieren. Daneben lassen 
sich beispielsweise aber auch Sub- 
directories anlegen. 

Alle Daten, die gespeichert oder 
geladen werden, werden in dem neu 
hinzugekommenen RAM-Baustein zwi¬ 
schengespeichert. Ein Test ergab, daß 
sich bis zu 1875 Byte in diesem RAM 
unterbringen lassen. Speziell bei Datei- 
verwaltungsprogrammeo kann es daher 
Vorkommen, daß Datensätze von Dis¬ 
kette gelesen werden, ohne daß das 
Laufwerk tatsächlich auf die Diskette 
zugreifen muß. Der Schreib-ZLesekopf 
wird also bei Programmen, die häufigen 
Diskettenzugriff erfordern, geschont. 
Andererseits hat diese Sache auch 
einen Haken. Bearbeitet man eine Datei 
und schließt man den einen Schreibvor¬ 
gang nicht korrekt mit CLOSE ab, so 
bleiben die Diskettenanweisungen im 
Puffer. Wechselt man nun die Diskette 
im Laufwerk, kann es passieren, daß die 
im Puffer verbliebenen Anweisungen 
auf die neue Diskette geschrieben wer¬ 
den und dort Files zerstören. 

Durch diese Erweiterung wird das 
Laufwerk auch um einiges schneller. 
Vor allem beim Lesen von Daten sind 
Geschwindigkeitssteigerungen um 50 
Prozent keine Seltenheit. Um welchen 
Faktor sich die Geschwindigkeit im ein¬ 
zelnen erhöht, ist dabei stark vom jewei¬ 


ligen Lesebefehl abhängig. So verrin¬ 
gert sich die Zeit, die das Laufwerk bei¬ 
spielsweise zum Booten des DOS.SYS- 
Files benötigt, nur um rund eine 
Sekunde. Liest man aber zum Beispiel 
1000 Zahlen mit dem INPUT-Befehl, so 
sind dazu statt rund 35 Sekunden nur 
mehr rund 20 Sekunden nötig. Das For¬ 
matieren einer Diskette beansprucht 
nur noch 26 Sekunden statt 38 Sekun¬ 
den, Speichert man Programme mit 
dem LIST-Befehl auf Diskette, so hält 
das Laufwerk sogar zwischenzeitlich 
immer wieder an, da die Datenübertra¬ 
gung langsamer ist als das Speichern. 

Formatieren 
in 26 Sekunden 

Diese Geschwindigkeitssteigerung 
hat allerdings auch einen Nachteil. 
Manche professionellen Programme 
lassen sich nicht mehr laden, da ihr 
Kopierschutz auf die veränderte 
Zugriffszeit reagiert. Mit geeigneter 
Software wäre es allerdings möglich, 
das Laufwerk wieder zu normalisieren. 
Dann stellt das Laden dieser Pro¬ 
gramme mit dem erweiterten Laufwerk 
auch kein Problem mehr dar. 

Die rund 230 Mark, die man für die 
Erweiterung ausgeben muß, sparen 
also nicht nur die Hälfte an Disketten 
ein, sondern bieten zusätzlich ein 
schnelleres Laufwerk. Somit ist der Ein¬ 
bau durchaus zu empfehlen. 

(Wolfgang Czerny/wb) 

Bejzuasque^e: JRATA, Hecmannstr, 9, 1000 Berlin 44, 

Tel.: (030)621 2071 

























Die Raupe wird zum 
Schmetterling 


ür den Atari 800XL gibt es jetzt 
^pil eine Erweiterungsplatine, durch 
m die der 800XL voil kompatibel 
zum 130XE wird. Um es allerdings 
gleich vorweg zu sagen: Wer Verände¬ 
rungen an der Hardware seines Atari 
800XL vornimmt, riskiert natürlich den 
Verlust des Garantieanspruchs. Man 
sollte den Einbau dieser Platine also 
entweder dem Fachmsüin überlassen 
oder aber entsprechende Grundkennt¬ 
nisse mitbringen. 

Auf der neuen Platine befinden sich 
neben einigen Gatterbausteinen sechs 
zusätzliche RAM-Bausteine. Die Erwei¬ 
terung hat ihren Platz direkt auf der 
Hauptplatine des Atari 800XL Das 
Gehäuse muß also geöffnet und das 
Abschirmblech entfernt werden. Die 
alten RAM-Bausteine werden aus ihren 
Sockeln gezogen und in die dafür vor¬ 
gesehenen Sockel auf der Erweite¬ 
rungsplatine eingesetzt. Die Platine 
selbst wird in zwei der so freigeworde¬ 
nen Sockel auf der Hauptplatine 
gesteckt. Nun sind noch einige Drähte 
von der Erweiterungsplatine an ver¬ 
schiedenen Stellen auf der Hauptpla¬ 
tine anzuschließen. Da Lötarbeiten ver¬ 
mieden werden sollten, schließt man 
die Drähte direkt an verschiedene ICs 
an. Dies geschieht, indem man die 
Drahtenden zusamrnen mit den IC- 
Anschlüssen in die Sockel klemmt. 
Manche Fälle ecfordern aber auch ein 
Hochbiegen der Anschlüsse der ICs, 
so daß man die Drähte direkt anklem¬ 
men kann. 

Beim Einbau ist etwas Fingerspitzen¬ 
gefühl unumgänglich. Sonst kann es'all- 
zuleicht passieren, daß man ver¬ 
sehentlich ein IC-Beinchen abbricht 
oder das eine oder andere IC durch sta¬ 
tische Aufladung zerstört. Aus diesem 
Grund sollte man vielleicht überlegen, 
ob man die Erweiterungsplatine nicht 
doch vom Hersteller der Platine in sei¬ 
nen Atari einbauen läßt. 

ist die Platine an ihrem Platz, verfügt 
man über einen zusätzlichen RAM- 
Speicherbereich von 64 KByte, Leider 
sind diese 64 KByte nicht genauso 
ansprechbar wie der normale RAM- 
Speicher. Da der Atetfi als 8-Bit- 
Computer nur 64 KByte direkt adres¬ 
sieren kann, muß man den Zusatzspei¬ 
cher über das sogenannte »Bank- 
Switching«-Verfahren ansprechen. Gibt 
man in Basic also beispielsweise den 
FRE(0)-Befehl ein, hat sich am freien 


Um in den Genuß von 64 KByte 
RAM mehr Speicherplatz zu 
kommen, muß man sich nicht 
unbedingt einen Atari 130XE 
kaufen. Eine Platine verwandelt 
Ihren 800XL in einen 130XE. 

Speicherplatz scheinbar nichts ge¬ 
ändert. 

Der Zysatzspeicher ist in 4 Banken 
aufgeteift, die zu erreichen es einen 
kleinen Umweg erfordert. Das Bild 
zeigt, wie die Speicherbereichsvertei- 
iung unter 128-KByte-RAM aussieht. 
Jede der vier Banken umfaßt 16 KByte 
und muß separat adressiert werden. 
Diese Aufgabe übernimmt beim 800XL 
der PlA'Baustein. Dieser Interface- 
Baustein verfügt über zwei 8 Bit breite 
Ports. Bei den alten Atari 400 und 800 
übernahmen diese beiden Ports die 
Abfrage der Joysticks. Beim SOOXL hin¬ 
gegen worden zwei Joystickports ein¬ 
gespart. Der dadurch freigewordene 
zweite Port der PIA wird nun zur Steue¬ 
rung der MMU (Memory Management 
Unit oder Speicherverwaltungs-Einheit) 
eingesetzt. POKEt man also einen ent¬ 
sprechenden Wert in das Portregister, 
hat man der MMU so mitgeteilt weiche 
Bank angesprochen werden soll. 


Speicherriese SOOXL 


Der Zusatzspeicher eignet sich also 
weniger zur Aufnahme größerer Basic- 
Programme, sondern vielmehr dazu, um 
darin Daten abzulegen; Daten wie zum 
Beispiel Maschinenunterprogramme 
oder Player/Missile-Daten. Man kann 
natürlich auch mehrere Grafik-Bilder 


darin ablegen oder ganz einfach allge¬ 
meine Datenfelder. Der Vorteil liegt klar 
auf der Hand, schreibt man ein umfang¬ 
reiches Programm, kann manches 
Nachladen von Diskette entfallen, Pro¬ 
gramme wirken dann nicht mehr »lang¬ 
atmig« und der Anwender wird nicht 
mehr einer Geduldsprobe unterzogen. 
Arbeitet man beispielsweise mit dem 
Atari-DOS 2.5, ist es ohne weiteres 
möglich, in diesem Speicherbereich 
eine RAM-Disk anzutegen. Diese RAM- 
Disk kann dann wie ein Diskettenlauf¬ 
werk angesprochen werden. Man spei¬ 
chert oder lädt seine Programme nur mit 
der Gerätebezeichnung »08:«. Da beim 
Laden und Speichern von Programmen 
in die RAM-Disk keine Input/ 
Output-Operafionen. sondern lediglich 
Speicherverschiebungen durchgeführt 
werden, gewährleistet dies so natürlich 
ein viel schnelleres Arbeiten. Befindet 
sich das DUP.SYS-Rle beispielsweise 
in der RAM-Disk, ist man beim Aufruf 
des DOS-Befehls innerhalb von Sekun¬ 
denbruchteilen bereits im DOS-Menü. 

Der Ausbau eines Atari SOOXL auf 
128 KByte RAM ist also eine durchaus 
lohnenswerte Angelegenheit. Lobens¬ 
wert ist auch die Tatsache, daß der 
Selbsteinbau sowie der Einbau vom 
Hersteller das gleiche, nämlich 259 
Mark kostet. Sollten Sie also kein erfah¬ 
rener Bastler sein, ist es ratsam, den 
Ausbau vom Hersteller vornehmen zu 
lassen. Schließlich kostet es nicht mehr 
und eine einwandfreie Funktionsweise 
des Computers ist auch gewährleistet. 
Billiger als ein neuer 130XE ist dies auf 
Jeden Fall. 

(Wolfgang Czerny/wb) 

Bezugsquotle: Wilheln Bock, Bfeichstr. 5.4790 Paderborn, 
161.(05251)32091 


Adressen 

Normaler RAM- und ROM-Bereich 

Erweiterter RAM-Bereich 

65S36-$FFFF 

42192-$C000 

Antic, Pokey, Gtia, Betriebssystem 
ROMS 


42l9l-$eFFF 

32768-$SOOO 

Basic oder RAM Biidschirmspeicher 


32767-$7FFF 

RAM 

Bank 3 $C000-$FFFF 



Bank 2 $800Ö-$BFFF 



Bank 1 $4000-$7FFF 

16384-$4000 


Bank 0 $0000^$3FFF 

16383-$3FFF 

OOOOO-SOOOO 

Betriebssystemvariablen usw. 



Oie Speicheraufteilung mit 128 KByte-RAM 





















A Das Listing des 

Monats im März-Heft 

von »Happy-Computer« 

■ * ■ 

IIIMI • 

»Happy-DOS II + /D mit 
RAM-Disk€< 

kompatibel zu DOS 2.0. 

Außerdem stellen wir Ihnen 
drei Monitore für den Betrieb 
am Atari-ST vor und berichten 
über das aktuelle Computerge¬ 
schehen auf der CES in Las 
Vegas. Eine große Marktüber¬ 
sicht informiert Sie über das ak¬ 
tuelle Taschencomputerange¬ 
bot samt zugehöriger Software. 
In einem Gruncuagenbeitrag 
lernen Sie die logischen Opera¬ 
tionen und deren erfolgreiche 
Anwendung in eigenen Pro- 
grommen kennen. 
Commodore-Fans und -Interes¬ 
senten finden unter anderem 
einen Testbericht über das 
Super^Grafikprogramm »Delu- 
xe Paint« für den Amiga. Wer 
sich für Schneider-Computer in¬ 
teressiert, sollte die große 
Marktübersicht »Hard- und 




Software für Schneider CPC 

nicht ver- 



Gutschein 

FÜR EIN KOSTENLOSES PROBEEXEMPLÄE VON HAPPT COMPUTER 


JA* icli möcble »KappyK^mputcr* kEimeiüemen- 

Seitden Sie mir bitte die aJimiellste Aasgabe kostenlos als ProbeeEempIar. VW&mi mär ftHapp^ 
Computern ge&Ht und icb es regelmäßig vreiteibenehen möchte brauche ich ruchis za tun; 
Ich erhalte itHappy^^omputex« dann legehnäßig frei Haas per Post und bezahle pro >ahi mir 
DM 66.— statt DM 22.— Emzeiveikaiifepreis (Ausland auf Aafeage). 


Vomante Name 


Straße 

PLZ. Ort 


Datum l. Uicterschnft 

Mir ist bekannt, daß ich diese Bestellung innexhalh von 8 l^en bei der Bestelladiesse mdeim^ 
fen kann und bestätige dies durch meine zweite UnteischiifL Zur Wahrung der Frist genügt die 
lechtzeiTige Absenduitg des Widenu^ 


Datum 2 . Unterschiift 

Gutschein ausfuUen. ausschneiden. in ein Kuvert stecken und absenden an; Markl&lbchnik 
Verlag AktiengOasUschaft. Tfertrieb Postfach 1304. 8013 Haar 
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Die Angst des Raumfahrers vor der Untertasse: »Koronis Rift« 


i^Dimensian X« setzt Grafik-Maßstäbe 


Spielmaschine 

Atari 


Daß der Atari bis heute einen 
Ruf als Spielcomputer genießt, 
hat seine guten Gründa Wenn 
auch Sie mit Ihrem Computer 
gerne eine Runde spielen möch¬ 
ten, finden Sie hier einige allge¬ 
meine Tips. 

S piele-Freaks, die einen 800XL 
oder 130XE besitzen, haben 
momentan allen Grund zu leich¬ 
tem Frust. Die beiden Atari-Computer 
sind bekanntlich Sound- und Grafik- 
Computer allerhöchster Güte Leider 
vernachlässigen die Softwarefirmen 
seit ein paar Jahren die Atari- 
Heimcomputer. Es erscheinen bei wei¬ 
tem nicht so viele Programme wie für 
den Marktführer Commodore 64. Hin 
und wieder gibt es auch Umsetzungen 
von C 64-Titeln, deren Qualität aller¬ 
dings mitunter sehr zu wünschen übrig¬ 
läßt, und die auch die Hardware nicht 
richtig ausreizen. 


Frisch aus den USA 
im Direktimport 

Der Atari-Spieler hat kein leichtes 
Leben, da in letzter Zeit relativ wenig 
Software-Nachschub anrollt. Bis auf 
U.S. Gold, die viele Atari-Versionen 
amerikanischer Programme im Angebot 


haben, vernachlässigen die englischen 
Softwarehäuser XL und XE geradezu 
sträflich. In den USA werden neue 
Spiele zwar bevorzugt für C 64 und 
Apple II entwickelt, doch gibt es eine 
ganze Reihe von Atari-Umsetzungen, 
die aber hierzulande nur sehr schwer zu 
erhalten sind. So kann man beim 
Compy-Shop zum exklusiven Preis von 
je 149 Mark einige direkt importierte 
Atari-Programme kaufen, die nur vor¬ 
erst oder generell nicht in Deutschland 
vertrieben werden. Auf der jüngsten 
Angebotsliste findet man hier Lecker¬ 
bissen wie den neuen U-Boot- 
Simuiator von Microprose, »Silent Ser^ 
vice«, die Synapse-Adventures »Mind- 
wheek, ^Essex« und »Brimstone« so¬ 
wie das Autorennen »Pitstop Ik. 


»Winter Games« 
im Anmarsch 


Etwas billiger kommen Sportspiel- 
Fans weg. Zwei der drei erfolgreichen 
Olympia-Simulationen von Epyx gibt es 
auch auf Diskette für Atari-Computer: 
»Summer Games« und »Winter Games« 
kann man zum erschwinglichen Preis 
von knapp 60 Mark kaufen. Die Atari- 
Versionen enthalten die Original- 
Disziplinen, sind grafisch aber nicht 
ganz so stark. 

Das Programmierteam von Lucasfilm 
Games hat erst vier Spiele veröffent¬ 


licht, doch ein Titel ist besser und er¬ 
folgreicher als der andere: »Rescue on 
Fractalus«, »Ballblazer«, »The Eidolon« 
und »Koronis Rift«. »Koronis Rift« ist die 
ausgereifteste und interessanteste 
Neuerscheinung. Als Raumkapitän 
düsen Sie mit Ihrer Lieblingsuntertasse 
durchs All. Plötzlich schlagen alle 
Instrumente aus: Sie haben Koronis 
Rift, den sagenumwobenen Planeten 
einer alten Rasse, wiederentdeckt. Im 
Raumgleiter rasen Sie über die Plane¬ 
tenoberfläche, um alte Raumschiff- 
Wracks nach wertvollen Überbleibseln 
der Supertechnik der verschollenen 
Ureinwohner zu durchsuchen. Mit die¬ 
sen Teilen kann man dann das eigene 
Schiff besser ausrüsten, was auch 
nötig ist, wenn man den massiven 
Angriffen der Wächter-Flotten auf 
Dauer widerstehen will. 


Neues von den 
Atari-Experten 

Vor allem begeistert das Spiel mit sei¬ 
ner Grafik: Die Gebirgsketten von Koro¬ 
nis Rift ziehen perspektivisch perfekt 
an Ihrem Cockpit vorbei, und an Bord 
Ihres Mutterschiffs wacht ein toll ani¬ 
mierter Roboter über die Beutestücke. 
Auch bei den anderen drei Lucasfilm- 
Spielen sind spannende Handlung und 
schnelle Grafik Trumpf. »Ballblazer« ist 
eine Art Fußballspiel des 4. Jahrtau- 
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sends, in dem die Bälle mit einem Ma¬ 
gnetfeld eingefangen werden. »Rescue 
on FractalöS« ist ähnlich wie »Koronis 
Rift« eine Planeten-Expedition, bei der 
diesmal abgeschossene Raompiloten 
vor den finsteren Jaggis gerettet wer¬ 
den müssen. Der Vorspann dieses 
Spiels gehört übrigens mit zum besten, 
was man je an animierter Grafik auf 
einem Heimcomputer gesehen hat. 


Abenteuerspiele in 
Deutsch und Englisch 

»The Eidolon« schließlich ist eine 
Expedition durch ein labyrinthartiges 
Höhlensystem, in dem es von merkwür¬ 
digen Kreaturen nur so wimmelt. 
Abenteuerlustige Atari-Fans sitzen 
keinesfalls auf dem trockenen. Selbst 
wenn Sie keine Diskettenstation haben, 
können Sie mit Ihrem Computer ein saf¬ 
tiges Adventure spielen. Das englische 


aber nur wenig halten. »Super Zaxxon«, 
die Fortsetzung zu »Zaxxon«, ist ein gra¬ 
fisch guter, aber spielerisch ausge¬ 
sprochen liebloser Krawumm-Aufguß. 
Das Jump-and-Run-Sptel »Conan« hat 
mit dem barbarischen Leinwandhelden 
herzlich wenig zu tun. Die Handlung 
wirkt etwas an den Haaren herbeigezo¬ 
gen, und wer eine auffallende Ähnlich¬ 
keit zwischen Arnold »Conan« Schwar¬ 
zenegger und dem mickrigen Bild¬ 
schirm-Männlein feststellt, muß schon 
eine reichlich rege Phantasie haben. 
Selbst wenn man solche Hüpfspiele 
mag, überkommt einen rasch das große 
Gähnen. Da greife man lieber zum guten 
alten »Bruce Lee«, der viel mehr Spiel¬ 
spaß bietet. 

Evergreen-Tips 
für die Sammlung 

überhaupt gibt es dank der Kompati¬ 
bilität zur 400/800-Serie einige 


hinter dem Apple ll-Original nicht ver¬ 
stecken braucht. 

Ataris 8-8it-Computer gehören 
sicher zu den mittelfristig auslaufenden 
Modellen auf dem Markt: Der 800XL 
wird zu Schleuderpreisen ausverkauft, 
und der neue 130XE verzeichnet nur 
mäßige Absatzzahlen. Angesichts die¬ 
ser Situation ist auch kaum mit einem 
wesentlichen Aufschwung beim Spiele- 
Angebot zu rechnen. Auf der anderen 
Seite dürfte der Nachschub von heute 
auf morgen keinesfalls völlig einschla- 
fen, da vor allem in Deutschland und 
den USA noch größere Stückzahlen auf 
dem Markt sind. Wer aber in den näch¬ 
sten Jahren in einem üppigen Software- 
Angebot schwelgen will, sollte langsam 
einen Umstieg einplanen. Doch das 
Angebot an guten Atari-Spielen ist so 
groß, daß man ein ganzes Weilchen 
braucht, um sich durchzuspielen. 

Zu guter Letzt noch ein Titel, der uns 
erst kurz nach Redakfionsschluß 



Schlag auf Schlag: »Karateka« 



Schöne GrüBe vom »Ballblazer«-Finale 


Softwarehaus Level 9 ist auf Abenteu¬ 
erspiele spezialisiert und bietet auch 
einige Programme für die Ataris an. 
Zirka 30 Mark kostet Sie derSpaß eines 
Grafik-Adventures mit guten, allerdings 
englischen Texten und vielen Bildern. 
Nur auf Floppy gibt es das hervorra¬ 
gende Einsteiger-Adventure »The Dal¬ 
las Quest« {Top-Grafik und Top- 
Spielwitz, 59 Mark) und die 
Gehirnzellen-Feger »Mask of the Sun« 
und »Serpenfs Star« (js 79 Mark). Der 
Bestseller »Mask of the Sun« liegt auch 
in einer voll eingedeutschten Version 
vor und nennt sich hier »Das Geheimnis 
der Aztekenmaske«. 


Neben Tops auch Flops 


An dieser Stelle mal ein paar Warnun¬ 
gen vor Neuerscheinungen der letzten 
Monate, die viel Spielwitz versprechen, 


betagte Klassiker, die auch heute noch 
spielenswert sind. Wer seinen Atari 
noch nicht allzulang hat und verzweifelt 
nach neuen Spielen sucht, sollte sich 
mal nach Evergreens wie »M.U.L,E.«. 
»Archon« oder »Dimension X« umhören. 
Letzteres gehört zu den wenigen Atari- 
Programmen, die nicht für den C 64 
umgesetzt wurden. Einfacher Grund: 
Das Schießspiel, das im wesentlichen 
von seiner schnellen Grafik lebt, wäre in 
der Commodore-Version viel zu lang¬ 
sam geworden. Und wer sich nach der 
guten alten Computer-Steinzeit sehnt, 
kann sich immer noch den Original-»Pac 
Man« zutegen, der vor Jahren Ataris 
Superhit für das Videospiel-System 
2600 war. Es werden aber hier und da 
noch Erfolgstitel anderer Computer 
nachträglich umgesetzt. So gibt es jetzt 
auch eine Atari-Version von Broder- 
bunds langsamem, aber stilvollem 
Sport-Actionspiel »Karateka«, die sich 


erreichte und den wir deshalb leider 
ohne Bild vorstellen müssen: »Merce- 
nary« von »Encounter«-Autor Paul Woa- 
kes. Das Spiel ist eine einfallsreiche 


Neuer Hit 
mit 3D-Grafik 


Mischungaus Flugsimulator, Geschick¬ 
lichkeit, Strategie und ^tion und ist zu 
recht zivilen Preisen (42 Mark Kassette, 
49 Mark Diskette) erhältlich. Das Glanz¬ 
stück von »Mercenary« sind die vielen 
3D-Vektorgrafiken, die diesen komple¬ 
xen Spietgenuß zu einem garantierten 
Renner für 1986 werden lassen. 

(Heinrich Lenhardt) 

BezLiQsqu^ie: 

Compy^Shop: Gngisenaustr. 29,4330 Mülheim/Ruhr, 

TeL {0203) 497169 {USA*Importe) 

Funtastic, Tannhätiserpiatz 22,6000 hAünolien SO, 

Tel. {0S9) 939894 

Teledienst MainzerTor'Anlase 45,6360 Frie<Jt>eng, 

Tel. (06031)91650 
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Cartridge-Experimente 

leichtgemacht 


»CES« hat nichts mit der 
bekannten Messe in Les Vegas 
zu tun. Hier handelt es sich 
um ein Cartridge-Experimentier- 
System zum Selberbasteln. 

E s gibt verschiedene Wege, den 
Atari-Computer mit Software zu 
versorgen. Programme oder 
Daten können einerseits manuell über 
die Tastatur in den Arbeitsspeicher des 
Computers gelangen. Das ist aber, wie 
das Einlesen von Daten mit dem Kas¬ 
settenrecorder, ein recht langwieriger 
Vorgang. Mit einer Diskettenstation 
geht es schon einige Größenordnun¬ 
gen schneller. 

Die maximale Geschwindigkeit ist bei 
Verwendung eines ROM-Cartridges zu 
erreichen, da hier dem Mikroprozessor 
ein direkter Datenzugriff erlaubt ist. Als 
weiterer Vorteil wäre noch das problem¬ 
lose Austauschen der Cartridges zu 
nennen. Ebenso erfreulich ist, daß nach 
dem Ausschalten des Computers die 
Informationen in den ROMs erhalten 
bleiben. 

Beim Atari 800XL/130XE ist für den 
Anschluß solcher Cartridges ein soge¬ 
nannter Cartridge-Slot vorgesehen. Er 
befindet sich bei Computern der XL- 
Serie auf der Oberseite des Gerätes, 
beim 130XE an der Rückseite. In der 
AnschluBbelegung unterscheiden sie 
sich jedoch nicht. 

An Software auf CcUlridge sind 
sowohl Spiele als auch Programmier¬ 
sprachen erhältlich. Je nach Programm 
werden 8KByte oder 16K8yte- 
Cartridges eingesetzt. Diese ROM- 
Cartridges fügen sich, wie aus Bild 1 
ersichöich ist, in den Speicheradreß- 
raum des Computers ein. 

Ein Cartridge mit einem eigenen Pro¬ 
gramm war Vielleich schon hin und 
wieder der Wunsch eines Atari- 
Besitzers. Oder wäre es nicht auch 
erfreulich, die Software eines käuflich 
erworbenen Cartridges den eigenen 
Bedürfnissen anpassen beziehungs¬ 
weise erweitern zu können? Dieser 
Wunsch als Vater des Gedankens war 
der Anstoß für die Entwicklung der in 
Bild 3 gezeigten Schaltung. 

Das CES {Cartridge-Experimentier- 
System) befindet sich auf einer Platine 
im Europaformat {100 mm x 160 mm). 
Es wird über eine Flachbandleitung und 
einen Cartridge-Slot-Stecker an den 


normalen Modulschacht des Atari- 
Computers angeschlossen. Die Platine 
des CES weist ebenfalls ein Slot zur 
Aufnahme der üblichen Cartridges auf. 
Ein Wahlschalter (SW 1) ermöglicht die 
Entscheidung, mit dem Cartridge der 
Platine oder mit CES zu arbeiten. Wird 
kein Cartridge benötigt, so muß es nicht 
extra entfernt werden. Eine eigene 
Funktion erlaubt die Trennung von CES 


beziehungsweise Cartridge und Com¬ 
putersystem. 

Mit dem CES lassen sich verschie¬ 
dene Cartridge-Größen simulieren. Es 
sind sowohl 8-KByte- als auch 
16-KByte-Nachbildungen realisierbar. 
Für die Datenspeicherung sind zwei 
statische 8-KByte-FAM-Bausteine ver¬ 
antwortlich, die jederzeit eine Ände¬ 
rung der Cartridge-Software erlauben. 































Die Schreibfreigabe-Leitung (WE) 
der RAM-Bausteine liegt normaler¬ 
weise auf High-Pegel, so daß nur das 
Lesen der Module gestattet ist. Zur Pro¬ 
grammierung des CES kann man 
jedoch mit Hilfe des Schalters SW 2 auf 
RAM-Betriebsart umschalten (Stellung 
»RAM«). Das CES verhält sich dann wie 
eine ganz gewöhnliche RAM-Erweite- 
rung. Die Schreibfreigabe kann aber 
auch softwaregesteuert erfolgen (SW 2 
in Stellung »Softswitch«). Dazu jedoch 
später mehr. 

Zur Einstellung der Betriebsart des 
CES (Größe, Lage im Speicheradreß- 
raum etc.) dienen zwei DlP-Schalter 
SA1 bis SA8 und SB1 bis SB4. 

Zunächst einiges zu den am 
Cartridge-Slot des Atari angebrachten 
Anschlußleitungen. Da wäre einerseits 
der vollständige Datenbus, die Adreß¬ 
leitungen AO bis A12 sowie einige Steu¬ 
erleitungen und eine 5-Volt-Spannungs 
Versorgung. 

Mit dem 13-Bit-Adreßbus läßt sich ein 
Speicheradreßraum von 8 KByte 
ansprechen. Ober die Meldeleitungen 
M4 und M5 (Aktiv High) wird dem Com¬ 
puter mitgeteilt, in welchem Speicher¬ 
bereich des Systems sich ein Cartridge 
befindet. Die Speicherverwaltungslogik 
im Atari weiß dann, an welchen Stellen 
sie das interne RAM ausblenden und 
das Cartridge einfügen soll. Dabei 
bedeutet: 

M4 = High - 8 KByte Cartridge im 
Bereich zwischen 
$8000 bis $9FFF 

M5 = High - 8 KByte Cartridge im 
Bereich zwischen 
$A000 bis SBFFF 

Liegen beide Meldeleitungen auf 
High, so entspricht das einem 16K- 
Cartridge im Adreßbereich von $8000 
bis SBFFF. 

Die Steuerleitungen S4 und S5 sind 
Low-Aktiv und kommen vom Computer. 
Sie dienen dem Chip-Select (Baustein- 
Auswahl) der ROMS im Cartridge S4 
wird Low, wenn ein Zugriff auf den Spei¬ 
cherbereich zwischen $8000 bis 
$9FFF erfolgt. Bei einem Zugriff auf 
den Bereich von $AOOO bis SBFFF 
wird S5 Low. 

Diese Steuer- und Meldeleitungen 
werden über den Wahlschalter SW 1 
entweder mit dem Cartridge-Slot auf 
der Platine des CES oder mit den ent¬ 
sprechenden Anschlußpunkten der 
CES-Logik verbunden; abhängig 
davon, ob ein normales Cartridge im 
Slot steckt oder das CES betrieben 
werden soll. Befindet sich SW 1 in Mit¬ 
telstellung, laufen die Steuer- und Mel¬ 
deleitungen leer. Der Computer regi¬ 
striert dann, daß kein Cartridge ange¬ 
schlossen ist. 

Eine weitere Steuerleitung am 
Cartridge-Slot des Atari ist die 


im Atari Cexnpiiter 


in Caftridge-Stot einsetzbar 



6K 


3K 

RAM 


ROM 



Cartridge 

(Wird 





(AJari Basic und 

wäriri At3fi Bäsic 


RAM werdun 



aufgmatiäcfi 

wird) 


aus^eblerxlet) 





zim Beispiel: 
(Se meteten Spiele 


16K 

ROM 

Cartridge 


(Alari BflSic und 
RAW werden 
automatiscn 
ausgeWendet) 


zum Beispiol: 
Microsoft Basic 


Switch-Cartridge 


4K 

ROM 


4K 

4K 

4K 

ROM 

ROM 

ROM 

Bank 1 

Bank 2 

Bank 3 


Prögrammgasteijerte 
ArvwatiEdef 
'gcrwünächten Bänik 
mögfich, 
zun Beispiel: 
OSS Basic XL 


Bi Ed 1. So fügen sich die verschiedenen Cartridge-Arten in 
den SpeicheradreBraum der Atari-Computer ein 


Schreibfreigabe-Leitung WE. Sie steht 
immer dann auf Low, wenn in eine Spei¬ 
cherstelle geschrieben wird. Die 
Schreibfreigabe-SignaJe werden nun 
beim CES über eine Tor-Schaitung an 
die WE-Anschlüsse der RAMs geleitet 
Damit ist es möglich, ein Beschreiben 
derjenigen RAMs, die zum CES gehö¬ 
ren, zu verhindern (ROM-Betrieb}. 

Die Anschlüsse des Cartrrdge-Siot 
am Atari reichen schon aus, um ein nor¬ 
males Cartridge mit dem CES zu simu¬ 
lieren. Mit den beiden noch verbleiben¬ 
den Anschlüssen PHI2 und CCTL las¬ 
sen sich noch einige Zusatzfunktionen 
realisieren. 

Am Anschluß PHI2 steht der System¬ 
takt des Atari zur Verfügung, von dem 
alle anderen Speichersteuersignale 
abgeleitet werden (zum Beispiel 
Schreibfreigabe). Besondere Bedeu¬ 
tung kommt jedoch dem Anschluß 
CCTL zu. Diese Leitung wird aktiv Low, 
wenn ein Zugriff auf den Speicher¬ 
adreßraum $D500 bis $D5FF erfolgt 

Im Atari ist dieser Speicherbereich 
weder durch das RAM noch vom ROM 
belegt. Die CCTL-Leitung wird nun beim 
CES in Verbindung mit den untersten 6 
Adreßbusleitungen und dem System* 
takt PHI2 zur Software-Steuerung des 
CES benutzt Mit Hilfe von IC 3 (6 Bit 
Dual-Flipflop) können die Zustände der 
Adreßleitungen AO bis A5 bei einem 
Zugriff auf den Speicherbereich 
$D500 bis $D5FF gelegt werden. 
Diese gespeicherten Zustände werden 
nun zur Steuerung des CES benutzt. 
Ein Beispiel soll dies verdeutlichen: 


Zugriffs (Lesen oder Schreiben!) fol¬ 
gendermaßen gesetzt 
AO bis A3 = Low 
A4 = High 

A5 = Low 

Dieser Zustand wird nun in IC 3 
gespeichert und liegt auch so lange an 
dessen Ausgängen QO bis Q5, bis eine 
andere Adresse im Bereich zwischen 
$D600 bis $D5FF angesprochen wird. 
So läßt sich dann ein neuer Zustand 
speichern. In unserem Beispiel liegt 
also an Ausgang Q4 ein High Pegel an. 


Cartridge- 

Unterseite Oberse ite (*) 


S4 

1 

A 

A3 

2 

B 

A2 

3 

C 

A1 

4 

D 

AO i 

5 

E 

04 

6 

F 

05 

7 

H 

D2 

8 

J 

Dl 

9 

K 

DO 

10 

L 

06 

11 

M 

S5 

12 

N 

-FSV 

13 

P 

M5 

14 

R 

CCTL 

15 

S 


M4 

GND 

A4 

A5 

A6 

A7 

A8 

A9 

A12 

D3 

D7 

A11 

A10 

WE 

PH12 


(*) Zeigt bei der XL-Serie zur Tastatur 


Soll ein Zugriff auf die Speicherstelle 
$D510 erfolgen, so sind die unteren 6 
Adreßleitungen zum Zeitpunkt des 


Bild 2. Die Anschlußbelegung des 
Atari Cartridge-Slot 



































































Aus der Schaltung des CES ist die 
Verbindung des Ausgangs Q4 mit dem 
Schalter SW 2 ersichtlich. Nimmt dieser 
Schalter nun die Steilung »Softswitch« 
ein, so wird die Torschaltung für die 
Schreibfreigabe zu den RAMs des CES 
über den High-Pegel des Ausgang Q4 
von IC 3 geöffnet und somit über die 
Adreßleitung A4 gesteuert! In unserem 
Beispiel wird also, sobald sich 
SW 2 in Stellung »Softswitch« befindet, 
das CES in RAM-Betriebsart geschal¬ 


tet. Will man wieder in den FOM- 
Betrieb zurück, genügt jetzt ein Zugriff 
auf eine Speicherstelle im Bereich 
$D500 bis $D5FF, bei der die Adreßlei¬ 
tung A4 auf Low bleibt. Ein Zugriff auf 
die Adresse $D500 bringt den Aus¬ 
gang Q4 von IC 3 auf Low-Ftegel und 
sperrt damit wieder die lörschaltung. 
Das RC-Glied R1 bis CI amCir-Eingang 
von IC 3 sorgt dafür, daß nach dem Ein- 
schaiten des Computers und des CES 
alle Ausgänge auf Low gesetzt sind. 


Bild 3. Schaltplan zu CES (Cartridge- 
Experimentier-System) 















































































































































































































Integrierte Schaltkreise 

!C1, IC2 

HM6264LP-1S (oder 

IC3 

ähnlich) 

74LS174 

(ZI bis Z6) = iC4 

74LS04 

(U1 bis U3) = IC5 

74LS00 

(01 bis 03) = 1C6 

74LS02 

Schalter 

SW1 

Drehschalter, drei Stel¬ 

SW2, SW3 

lungen mit vier 
SchaJtebenen 
Schiebeschalter 1xUM 

SA1 bis SAS 

DIP-Schalter, BxEin 

sei bis SB4 

DlP-Schalter, 4xEin 

Widerstände 

R1, R7 

4.7 KOhm 

R2 

220 Ohm 

R3. R4, R5, R6 

47 KOhm 

RS, R9 

270 Ohm 

Kondensateren 

CI, C3 

100 fji, 6V3 (Elko) 

C2 

1nS (Keramik-El ko) 

Sonstiges: 

Zur Ptiffenjng wahlweise ein 3.6-Volt-Akku- 

oder ein SSOO-ziFarad-Elko 


Bild 4. Bauteileliste zum Cartridge- 
Experimentier-System 


Im CES werden für die Datenspeiche¬ 
rung statische CMOS-RAMs des Typs 
6264LP-15 verwendet, die im nicht 
selektierten Zustand, also im Standby- 
Betrieb, eine sehr geringe Stromauf¬ 
nahme haben. Deshalb ist in der Schal¬ 
tung eine Pufferung der Spannungsver¬ 
sorgung für die RAM-Bausteine vor¬ 
gesehen. So bleiben auch nach 
Abschalten der Computerspannungs¬ 
versorgung die Daten im CES für län¬ 
gere Zeit erhalten. Man muß nicht unbe¬ 
dingt einen NC-Akku zur Pufferung ein- 
setzen. Ein Elko mit 3300 Mikro-Farad 
im CES erfüllt für immerhin ganze 11 
Stunden denselben Zweck. Soviel zur 
Arbeitsweise der Schaltung. 

Wichtig: Soll die Einstellung der DIP- 
Schalter des CES verändert werden, so 
müssen zuvor Computer und Pufferung 
des CES ausgeschaltet werden! 

Nun einige Erläuterungen zu den 
Betriebsarten, wie sie in Tabelle 1 auf¬ 
geführt sind. 

8-KByte-Cartridges im Bereich zwi¬ 
schen $8000 und $9FFF 

In dieser Betriebsart steht das CES 
direkt im Anschluß an den Adreßraum 
des eingebauten Basic zur Verfügung. 
Man kann dort zum Beispiel sehr ein¬ 
fach oft benötigte Hilfsprogramme 
unterbringen. Ist SW 2 in Stellung 
»RAM«, so kann man das CES von Basic 
aus wie ein RAM betreiben. In Stellung 
»Softswitch« erfolgt eine softwaremä- 
Bige Umschaltung zwischen RAM- und 
ROM-Betrieb. Wird die Speicherstelle 
54544 dezimal (zum Beispiel mit 
»POKE 54544,1«) angesprochen, so 
wird der RAM-Betrieb eingeschaltet. 
Mit »POKE 54528,1 befindet man sich 
wieder im ROM-Betrieb. 



DlP^halter SA 


DlP^chalter SB 

Betriebsart des CES 

1 

2 

3 

4 

5 

6 

7 
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2 

3 
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SK-Cartridge 

0 

0 

0 

0 

0 

0 

0 

1 


0 

0 

1 

0 


- Bereich $8000 - $9FFF 

0 

0 

0 

0 

0 

0 

0 

1 


0 

0 

0 

1 


- Bereich $8000 - $9FFF 















{softwaregesteuert) (ausbJendbar) 

0 

1 

0 

0 

0 

0 

0 

0 


0 

1 

0 

0 


- Bereich $AOOO - $BFFF 















1SK-Cartridge 

0 

1 

0 

0 

0 

0 

0 

1 


0 

1 

1 

0 


- Bereich $8000 -SBFFF 















1 SK-Switch-Cartridge 

1 

0 

1 

1 

0 

1 

1 

0 


1 

0 

0 

0 


- Bereich $AOOO - $BFFF 















(mit Bank-Switching) 

1 

™ Schalter geschlossen 

0 = 

= Schaber geöffnet 





; TRflNSCAR 

102ß 1 


1030 ^ Ej-moeqi i cht das von 

104-0 1 

; Daten dem im Slot befind- 

1050 ; 

; liehen Cartridge bzw. dae Kopie— 

IQAa : 

{ ren von Daten aue dem RAM in das 

1070 ; Cartridge-Enperimentier^System- 

1080 1 


1090 1 

f 

1100 : 

; SRCBOT = Anfangsadr. ßzw Endadr. 

1110 ^ SRCTOP des QueL 1 erb er > 

1120 ; USTBOT = Ziel— 

1130 

; speicherbereiche 

1140 ; 

F 


r 

llä0 ; 

1170 TEMP iD0 {Zwischenspeicher 

11Q0 : 


1190 SftCeOt = $ß000 

1200 SRCTOP = ^BFFF 

1210 DSTBDT = SA000 

1220 ; 


1230 CONSCJL = ^D01F ; COWSOL-T^sten 

1240 WMIEN = *D40e :NM1-EN«BLE-Ctrl. 

12S0 ! 


1260 RAHC4R = *D510 ;Adr. T. Schreib- 

1270 

{-Freigabe {Je nach 

1250 

{Betriebsart des 

1290 

;CESi 

1300 RGMCAR = ¥DS00 =Adr. f. Schreib- 

1310 

{sperre (je nach 

1320 

;Betrieb^art d es 

1330 

5 CCS) 

1340 


1350 

*= ^0600 

1360 ; 

1370 SWSTRT 

13B0 

LDA NMlSy {Alle Interrupts 

1390 

STA TEMP {sperren! 

1400 

LDA 40 

1410 

STA NJ1ISN 

1420 ; 


1430 HTSTRT 

1440 

LDA CONSGL {Warten bis die 

i4sa 

CHP *6 ; START -Taste 

1460 

BNE WTSTRT {gedrueefct wurde- 

1470 ; 


1450 

1490 

STA RAMCAR jSchreibTreigabe 

1500 

;Fuer CES 

1510 


1520 


1530 TRANS 

1540 

LDX <SRCTOP 

1550 

LDY i* >5RCTGP 

1560 VON 

1570 

LDA SfiCeOT {Kopiere Daten von 

1580 NACH ; ;SRCBOT bis SRCTOP 

1S90 

STA DST88T {nach DSTBDT -f-f. 

1600 

CPY VQN+2 

1610 

BNE INCVÜM 

1620 

CPX VQN+1 

1630 

5CQ RETURN 

1640 : 

ENCVON 

1650 

INC VDN+1 

1660 

bne incto 

1670 

INC VDN-^2 

1680 : 

INCTO 

1690 

INC NACH+1 

1700 

BNE VON 

1710 

INC NACH+2 

1720 

CLC 

1730 

BCC VON 

1740 { 

1750 DISWKT 

1760 

STA ROMCAR {CES auf RDM-Be- 

1770 ; 

; {trieb erhalten. 

1780 : 

i 

1790 RETURN 

1500 

LDA TEMP {Interrupts frei— 

1810 

STA NMIEN {geben- 

1020 

RTS 

1830 ! 

r 

1S40 

*= ^02E0 s Autoetartfi1e 

1S50 ASTRT ; erzeugen! 

1860 

-WORD SWSTRT 

1870 ; 



A Tabelle 1. Die Betriebsarten des CES 

•4 Listing 1. Queiltext zum Lesen des 
Inhalts eines Cartridges (MAC/65) 

8-KByte-Cartridge im Bereich zwi¬ 
schen $8000 bis $9FFF; software¬ 
gesteuert und ausblendbar 

Diese Betriebsart erlaubt es, das CES 
per Programm außer Betrieb zu setzen 
und das darunterliegende RAM des 
Atari zu aktivieren. So erhält man im 
Adreßraum $8000 bis $9FFF zwei 
8 KByte große Speicherbereiche. Ein¬ 
mal das RAM des Computers, dessen 
Inhalt nach Ausschalten des Atari ver¬ 
lorengeht; zum anderen das CES, des¬ 
sen Inhalt durch die Pufferung mittels 
Akku oder Elko auch nach Abschalten 
des Computers erhalten bleibt. 

Folgende Zustände sind zum Beispiel 
von Basic aus steuerbar: 

»POKE 54628,1« - CES als ROM akti¬ 
viert (= Einschaltzustand) 

»POKE 54544,1« - CES als RAM akti¬ 
viert 

»POKE 54560,1« - RAM des Compu¬ 
ters aktiviert. 

8-KByte-Cartridge im Bereich zwi¬ 
schen $Aß00 bis $BFFF 

Dies ist wohl die am häufigsten anzu¬ 
treffende Carfridge-Version für Atari- 
Computer. Die meisten Cartridge- 
Spiele liegen in diesem Speicheradreß- 
bereich. Aber auch das Atari-Cartridge- 
Basic, wie es früher für die Ateiri 400 
und 800 Computer geliefert wurde, 
befindet sich in diesem Bereich. 

Vom eingebauten Basic der XL- und 
XE-Serie ist das CES in dieser Betriebs¬ 
art nicht mehr zu kontrollieren. Das ein¬ 
gebaute Basic liegt nämlich ebenfalls im 
gleichen Adreßraum und ist deshalb bei 
eingeschaltetem CES desaktiviert. 

Über die Maschinensprache ist 
jedoch ein Zugriff auf den Inhalt des 
CES möglich. Bei Listing 1 handelt es 
sich um ein solches Umschaltpro¬ 
gramm. Mit einem Assembler, wie zum 
Beispiel MAC/65, kann man Maschi¬ 
nenspracheprogramme für jeden belie¬ 
bigen Adreßraum schreiben, assem- 
blieren und dann auf Disk speichern. 
Ein solches Programmfile wird dann 


















































* 

SWITCHER 

1020 

; 



11030 

;Ernoeglicht 

Umscbalten vom 

1Q4Q 

;CES 

das im 

Slot des CES 

1E)5B 

;beFindl 

^ Cartridge und umgeitehrt- 

lOAO 




1070 

;nach Progranmstart 'haengf 

1080 

jCCHiputer und es 

kann mit dem 

1090 

; Wah 15chal Sw 

1 au-f der Platine 

1 loa 

jdes CES 

ungesehal tet werden. 

1110 

:Hit DrucV; die 'START'-Taste 

1120 

;wird der fltari 

wieder 'in Sang' 

1130 

j geatzt 

und das 

DOS meldet sieb- 

11A0 




1150 




iita 




1170 

TEMP = 

*00 

; Zwischenspeicher 

1180 

NCAFtT = 

«C4G9 

;CARTCK berechnen 

1190 

CONSOL = 

: *D01F 

; CONSOL^Tasten 

1200 

WIIEN = 

«D40E 

^ hlH I -ENABLE-^tr 1 . 

1210 




1220 


$0600 


1230 




1240 

SWITCH 



1250 

LDA 

T^IEN 

;Alle Interrupts 

1260 

STA 

TEMP 

; sperren! 

1270 

LDA 

»0 


1280 

STA 

NMIEN 


1290 

WTSTRT 



1300 

LJ>A 

COINSOL 

;Harten bis die 

1310 

CHP 

«6 

; 'START'-Taste 

1320 

8NE 

WTSTRT 

^gedrueckt wurde. 

1330 

MSlJCAR 



1340 

asR 

NCARTT 

j Neue Car t _-Check- 

1330 

; 


5uiwne berechnen. 

1360 

retturn 



1370 

LDA 

TEMP 

; Interrupts frei— 

1380 

STA 

MMIEN 

;geben. 

1390 

RTS 



1400 

? 



1410 

ASTRT 



1420 

»= 

«02E0 


1430 

.MÜRD SWITCH ; Autostart-Eile 

1440 

9 


erzeugen t 


Listing 2. Dieses Assembier-Programm 
dient zum Umschalten zwischen dem 
CES und einem eingesteckten ROM- 
Modul 


beim Laden vom DOS automatisch in 
den dafür vorgesehenen Speicherraum 
geschrieben. 

Es muß aiso im Prinzip folgenden Auf¬ 
bau haben, damit es in den Speicher 
des CES geladen werden kann: 

- Lade einen Wert, beispielsweise 0, 
nach $D510 (RAM-Betriebsarl des 
CES). 

- Lade die Daten für den Adreßraum 
$A000 bis $BFFF in das CES. 

- Lade einen weiteren Wert nach 
$D500 (ROM-Betriebsart des CES). 

Die Vorgehensweise für das Laden 
von Daten in das CES geschieht folgen¬ 
dermaßen: 

1. Den Computer und die Pufferung 
des CES ausschalten. 

2. DlP-Schaiter für die entsprechende 
Betriebsart einstellen. 

3. Schalter SW 1 auf Stellung »CES«. 

4. Computersystem booten und Puffe¬ 
rung des CES einschalten. 

5. Das File mit oben beschriebenem 
Aufbau vom DOS aus laden. 

Die über DOS geladenen Daten befin¬ 
den sich nun im CES. 
16-KByte-Cartridge im Adreßbereich 
zwischen $8000 bis $6FFF. 

Hierbei handelt es sich um zwei 
8-KByte-Cartridges, die einen zusam¬ 
menhängenden Adreßraum des Com¬ 
puters überdecken. Eine Kontrolle von 
Basic aus ist auch hier dadurch verhin¬ 
dert, daß das Basic von der oberen 


Hälfte des 16-KByte-Bereichs überla¬ 
gert wird und somit nicht zugänglich ist. 
Es bleibt nur noch der Weg über die 
Maschinensprachebene. 
16-KByte-Switcli-Cartridge im Adreß¬ 
bereich zwischen $A000 bis $BFFF 

Wie aus Bild 1 ersichtlich handelt es 
sich hier um eine etwas komplexere 
Betriebsart. Das CES bietet die volle 
Speicherkapazitätvon 16 KByte, belegt 
aber nur 8 KByte Adreßraum im Compu¬ 
ter. Dies macht das sogenannte Bank- 
Switching möglich. Der Bereich von 
$B000 bis $BFFF ist normalerweise 
immer eingeblendet. Ein dort befindli¬ 
ches Maschinenprogramm kann nun 
durch Zugriff auf bestimmte Speicher¬ 
stellen zwischen $D500 bis $D5FF 
einen der drei Speicherbänke im 
Bereich $AOOO bis $AFFF aktivieren 
und zu einem dort befindlichen Unter¬ 
programm verzweigen. Nach Abarbei¬ 
tung des Unterprogramms erfolgt der 
Rücksprung in das aufrufende Pro¬ 
gramm im Bereich von $B000 bis 
$BFFF. Jetzt kann noch eine andere 
Bank eingeblendet werden, um even¬ 
tuell ein dort vorliegendes Unterpro¬ 
gramm auszuführen. 

Mit Hilfe dieser Technik passen 
16-KByte-Modu!e in nur 8-KByte- 
Speicher! Die einzelnen Speicher¬ 
bänke werden durch Zugriff auf fol¬ 
gende Adressen aktiviert: ■ 


Adresse 

Sank 

$D5X0 

Bank 1 (untere 4 KByte in IC 1) 

$D5X3 

Bank 2 (untere 4 KByte in IC 2) 

$D5X4 

Bank 3 (obere 4 KByte in IC 1) 

X=0 

> ROM-Betriebsart 

X=1 

> BAM-Betriebsart 


Nach diesem Prinzip arbeiten übri¬ 
gens auch die Super-Cartridges von 
OSS. Will man ^fhvare in dieser 
Betriebsart ins Cartridge laden, so ist 
schon während des Ladevorgangs von 
Disk die Hardware des CES auf die ent¬ 
sprechenden Speichersteilen im 
Bereich ab $D5XX einzustellen. Ein 
Programmfile sollte also folgenden Auf¬ 
bau haben: 

1. Lade einen Wert, beispielsweise 0, 
nach $D510 (entspricht RAM-Betrieb 
des CES und Bank 1 ist eingeschaltet). 

2. Lade die Daten für Bank 1 nach 
$A000 bis $AFFF und unmittelb^ 
danach den Bereich von $B000 bis 
SBFFF. 

3. Lade einen Wert nach $0513 (ent¬ 
spricht dem RAM-Betrieb des CES. 
Bank 2 ist eingeschaltet). 

4. Lade die Daten für Bank 2 nach 
SAOOO bis $AFFF. 

5. Lade einen Wert nach $0514 (ent¬ 
spricht RAM-Betrieb des CES. Bank 3 
ist eingeschaltet). 

6. Lade die Daten für Bank 3 nach 
$A000 bis $AFFF. 


7. Lade einen Wert nach $D500 (ent¬ 
spricht ROM-Betrieb des CES. Bank 1 
ist eingeschaltet). 

Das Programm befindet sich nun im 
CES und kann aufgerufen werden. 

Soviel an Hinweisen zum Gebrauch 
des CES (für Anwender), die eigene 
Cartridge-Programme schreiben wol¬ 
len. Es würde den Rahmen sprengen, 
hier noch auf Details einzugehen, wie 
zum Beispiel das Betriebssystem die 
verschiedenen Cartridgearten behan¬ 
delt, wann ein Cartridge-Selbststart 
erfolgt und wie das Betriebssystem 
registriert, ob ein Cartridgewechsel 
erfolgt ist. Mehr dazu kann man der ent¬ 
sprechenden Literatur entnehmen 
(zum Beispiel DeReAtari, Atari 600 XL/ 
800XL inter von Data Becker) oder 
durch Experimentieren herausfinden. 

CES erlaubt also, wie schon zu 
Beginn bemerkt, den Inhalt von norma¬ 
len Cartridges herauszufinden. Im Prin¬ 
zip geht das folgendermaßen vor sich: 

- Im Cartridge-Slot der CES-Platine 
befindet sich das zu untersuchende 
Cartridge 

- Das CES wird auf die gleiche Be¬ 
triebsart wie das Cartridge einge¬ 
stellt. 

- Mittels eines kleinen Maschinenpro¬ 
gramms wird der Inhalt des Cart¬ 
ridges ins RAM kopiert. 

- Anschließend wird auf CES-Betrieb 
umgeschaltet, und die im RAM vorlie¬ 
genden Daten werden, ebenfalls mit 
einem kleinen Maschinenprogramm, 
ins CES verlagert. 

Oer Inhalt des CES kann nun mit 
einem Monitorprogramm untersucht 
und disassembtiert werden. Schaltet 
man das CES auf RAM-Betrieb, so las¬ 
sen sich auch Änderungen vornehmen. 
Ebenso besteht die Möglichkeit, den 
Inhalt des CES auf Diskette,zu spei¬ 
chern und später wieder zu laden. 

Das in Listing 2 abgedruckte Pro¬ 
gramm erledigt den Datentransfer zwi¬ 
schen Cartridge und RAM, zum Bei¬ 
spiel für ein 8-KByte-Cartridge im Spei¬ 
cherbereich zwischen $A000 bis 
SBFFF. Eine Änderung dieses Berei¬ 
ches läßt sich recht einfach realisieren. 
Das Programm kopiert die Daten aus 
dem Speicherbereich zwischen 
SRCBOT und SRCTOP (im Listing bei¬ 
spielsweise SAOOO bis SBFFF) in den 
Speicherbereich ab DSTBOT (im Listing 
beispielsweise $6000 bis $7FFF). 
Dieses Programm wird assembliert und 
unter dem Namen »READOUT.COM« 
auf Diskette gespeichert. 

Dann wird das Programm noch einmal 
assembliert, jedoch mit den Adressen 
$6000 für SRCBOT, $7FFF für 
SRCTOP und SAOOO für DSTBOT und 
mit dem Namen »WRITECES-COM« 
auch noch auf Diskette gespeichert. 
Und so wird’s gemacht: 
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1. Computersystem und CES- 
Pufferung ausschalten. 

2. Zu untersuchendes Cartridge in 
den Slot des CES stecken. 

3. Betriebsart des CES entspre¬ 
chend dem zu untersuchenden 
Cartridge einstellen. 

4. Schalter SW 1 in Stellung »CES^c. 

5. Schalter SW 2 in Stellung »Soft¬ 
switch«. 

6. Computersystem und Pufferung 
des CES einschalten. 

7. Bootprozeß abwarten, bis sich das 
DOS meldet. 

8. Das Programm »READOUTCOM« 
vom DOS aufmfen. 

9. Schalter SW 1 auf Stellung »Cart.« 
schalten. 

10. STARTTaste drücken und abwar- 
ten, bis sich das DOS wieder mel¬ 
det. 

11. Programm »WR1TECES.COM« vom 
DOS aufrufen. 

12. Schalter SW 1 auf Stellung »CES« 
schalten. 

13. STARHRaste drücken und warten, 
bis sich das DOS wieder meldet. 

Im CES befinden sich nun die glei¬ 
chen Daten wie in dem zu untersuchen¬ 
den Cartridge Jetzt läßt sich der Inhalt 
des CES beispielsweise mit einem 
Monitorprogramm wie Bug/65 untersu¬ 
chen und disassemblieren. 

Soviel zum Umgang mit dem CES. 
Wie der Name schon sagt, handelt es 
sich um ein Experimentiersystem. 
Beschäftigt man sich intensiv mit dem 
System, so wird man bestimmt noch 
andere, hier nicht aufgeführte Betriebs¬ 
arten entdecken. 

Zum Schluß noch einiges zum hard- 
w^emäßigen Aufbau der CES-Platine. 
Wie bereits erwähnt, erfolgte die Reali¬ 
sierung der Schaltung mit einer 100 mm 
X 160 mm großen, einseitigen Lochra¬ 
sterplatine mit Lötpunktraster. Die Ver¬ 
drahtung ist in Fädeltechnik ausgeführt 
und deshalb schnell durchführbar. Zu 
einem späteren Zeitpunkt könnte man 
sich natürlich auch eine Platine entwer¬ 
fen. Auch Änderungen lassen sich 
schnell und einfach vornehmen. 
Schließlich handelt es sich um ein 
Experimentiersystem. 

Die nötigen Anschlüsse zum Cart- 
ridge-Slot des Atari-Computers sind auf 
Pfostenfeidstecker {2 x 15 Pole) 
geführt. Die Verbindung zum Cartridge- 
Slot des Atari übernimmt ein 30adriges 
Flachbandkabel. An der Seite zur CES- 
Platine ist eine 34polige Pfostenfeld¬ 
buchse in Schneidklemmtechnik ange¬ 
preßt. An der Cartridge-Slot-Seite zum 
Atari ist das Flachbandkabel an eine 
doppelseitige Streifenleiterplatine an¬ 
gelötet und mit Zwei-Komponenten- 
Klebstoff fixiert. 

(H. D. Jankowski/wb) 


PIA - die dritte 
Schnittstelle 

Mit sehr einfachen und preiswerten Mitteln läßt sich sogar eine 
selbstgebastelte Zusatztastatur an Ihren Joystick-Port anschließen. 



A Die Zusatz¬ 
tastatur läSt sich 
problemlos in 
einem handlichen 
Gehäuse unter¬ 
bringen. 


PROGRAMM-STECKBRIEF 

Program mname 

PIA-Steuerung 

Program mtyp 

Utility 

Programm ie rsprache 

Basic und Maschinensprache 

Programmlänge 

insgesamt 6272 Byte 

lür Computer 

800 XL/130 XE 

zusätzliche Hardware 

laut Bauanleitung 

Eingabehilfe 

Prüf Summer 

Bemerkung 

In Verbindung mit der Zusatzschaltung 
läßt sich eine Tastatur oder ein Schalt- 
Interface steuern 

Leserservice 

Diskette (P!A1.BAS/PiA2.BAS) 


0 as ganze Geheimnis der 
< Joystick-Schnittstelle ist die 
sogenannte PIA. Es handelt sich 
hier um einen Standardperipheriebau¬ 
stein des Typs 6520. Dieses Bauteil 
verfügt unter anderem über zwei 8 Bit 
breite Ports, die sich sowohl für die Ein¬ 
ais auch für die Ausgabe von Daten nut¬ 
zen lassen. Wie man diese Ports ver¬ 
wendet, ist dabei softwaremäßig völlig 
frei programmierbar. Leider macht sich 


hier jedoch ein Nachteil der Atari XL- 
und XE-Generation deutlich bemerk¬ 
bar. Während die alten Modelle noch 
über vier Joystickports verfügten, 
sparte man bei den neueren Modellen 
zwei Ports ein. Durch diese Einschrän¬ 
kung konnte^ der zweite Port der PIA 
natürlich nicht mehr nach außen geführt 
werden. Besitzt man also ein neueres 
Gerät, so kann man nur noch mit einem 
der beiden PIA-Ports arbeiten und ver- 
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fügt statt über insgesamt 16 Datenbits 
nur mehr über 8. Selbst ein hardware¬ 
mäßiger Eingriff, bei dem man den feh¬ 
lenden Port nach außen führen würde, 
ist nicht durchführbar. Dieser Port über¬ 
nimmt nämlich nun andere Aufgaben, 
vor allem in der Zusammenarbeit mit der 
MMU {Memory Management Unit oder 
Speicherverwaltungseinheit}. 


Dem Atari geht ein 
Licht auf 

Im Normalzustand ist die PIA auf Ein¬ 
gabe programmiert. So ist es einsichtig, 
daß man bei der Auslenkung des Joy¬ 
sticks eigentlich nichts anderes tut, als 
einzelne Bits des Ports zu setzen oder 
zu löschen. Aus dieser Tatsache erklä¬ 
ren sich auch die auf den ersten Blick 
etwas kuriosen Werte, die man mit Hilfe 
des STICK-Befehls erhält. Lenkt man 
den Joystick nicht aus, erhält man bei¬ 
spielsweise den Wert 15. Dies bedeu¬ 
tet, daß alle 4 für einen Joystick zustän¬ 
digen Bits gesetzt sind (1111 binär 
ergibt 15 dezimal). Ist der Joystick nach 


Auf der abgebildeten Testplatine wurden 
einer Lochrasterplatine realisiert 

Oben gelenkt, so wird das niedrigste Bit 
gelöscht und man erhält den Wert 14 
(1110 binär ergibt 14 dezimal). Welche 
Joystickbewegungen die einzelnen 
Bits beeinflussen, können Sie aus 
Tabelle 1 entnehmen. 

Will man nun die Daten der PIA abru- 
fen, erweist sich die STICK-Funktion 
nicht als besonders sinnvoll Zum einen 


die Schaltungen von Bild 2 und Bild 3 auf 


erfaßt man pro Befehl nur 4 Bit, zum 
anderen lassen sich mit diesem Befehl 
keine Daten an die PIA senden. Deshalb 
bedient man sich besser direkt der hier¬ 
für vorgesehenen Speicherstellen. Je¬ 
dem der beiden PIA-Ports sind zwei 
Speicherstellen zugeordnet. Einmal 
das PIA-Register, das die zu senden¬ 
den oder zu empfangenden Daten ent¬ 
hält Dann das Datenrichtungsregister, 
das festlegt, welche Bits des PIA-Regi- 
sters für die Eingabe beziehungsweise 
Ausgabe verwendet werden (die dafür 
relevanten Adressen finden Sie in 
Tabelle 2). 



Pin-Nr 

Richtung 

PJA-Bit SnCK-Wert 


1 

vorwärts 

0 

14 

Joystick 

2 

rückwärts 

1 

13 

Porti 

3 

links 

2 

11 


4 

rechts 

3 

7 


1 

vorwärts 

4 

14 

Joystick 

2 

rückwärts 

5 

13 

Port2 

3 

links 

6 

11 


4 

rechts 

7 

7 


Tabelle 1. Für die Modelle 400/800 gel¬ 
ten dieselben Werte für Joysttckan- 
schluß 3 und 4 


Port A 

54016 

Port B 

54017 

Port A DRR 

54018 

Port B DRR 

54019 

Joystick 1 

632 

Joystick 2 

633 

Joystick 3 

634 

Joystick 4 

635 


Tabelle 2. Der Zusatz »DRR« steht für 
»Datenrichtungsregisteru. Die Adressen 
für Joystick 3 und 4 betreffen nur die 
alten Modelle. 

^ Bild 1. Schaltplan für eine 
Zusatztastatur 


P8 

V 




[8 1 

74148 d 

9 X6 


T 


J00 


I 




8 1 

74148 C 

9 16 


P4} 





P2>— 


i^14 


O 

O 




T 


*-CP7 


-<P1 


CP3 


12 

Taster, Typ Digitast 

2 

IC 74LS148 

1 

fC 74LS00 

1 

Stecker 9pol. 

1 

Kabel 6pol. 

1 

Gehäuse 

1 

Lochrasterplatine 

Bauteileliste für eine ZusatztaStatur 


TO-TY Anschlüsse für die 12 Tasten 

0_jr*T —1 

1 ■■ Masse an P8 

Pl-PS Pinnummer am Stecker 
2um Computer 
1 2 3 4 5 


U o o o 0 / 

\ o o O o I 


6 7 8 9 
Pin 5, 6 und 9 werden nicht belegt 
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Die Programmierung der PIA geht fol¬ 
gendermaßen vor sich. Zuerst teilt man 
dem entsprechenden Datenrichtungs¬ 
register mit, daß die nächste Anwei¬ 
sung an den Port die DatenfluBrichtung 
festlegen soll. Dies geschieht, indem 
man den Wert 48 in das Register 
POKEt. Der Wert für die gewünschte 
Flußrichtung ergibt sich dadurch, daß 
man für jedes Datenbit, das auf Aus¬ 
gabe programmiert werden soll, eine 


logische Eins und für jede Datenleitung 
zur Eingabe eine logische Null eingibt. 
Will man also beispielsweise alle acht 
Leitungen zur Ausgabe benutzen, 
ergibt dies den Wert 255 (oder binär 


Daten rein oder raus? 


11111111). Für die Eingabe aller acht 
Leitungen ergäbe sich also der Wert 


Bild 2. Schaltplan zum 
Ansteuern von vier 
Kanälen. 

Die abgedrucicte 
Schaltung wird in 
zweifacher Aus* 
führung benötigt, falls 
Sie alle acht Kanäle 
ensprechen möchten. 

Null (binär 00000000). Man kann also 
ohne weiteres auch beide FluBrichtun- 
gen gleichzeitig festlegen, indem man 
sich den entsprechenden Wert errech¬ 
net. 

Der nächste Befehl bezieht sich nun 
wieder auf das Datenrichtungsregister. 
Man stellt den Normalzustand durch 
POKEn des Wertes 52 her. Nun ist das 
Port-Register nur noch für die logischen 
Zustände der Ein- und Ausgabe verant¬ 
wortlich. Belegt man diese Speicher¬ 
stelle also beispielsweise mit dem Wert 
Null, so würden alle Ausgänge den logi¬ 
schen Wert Null annehmen. Die Hard¬ 
ware, die man benötigt, um tatsächlich 
externe Vorgänge zu Steuern oder zu 
erfassen, kann sich relativ einfach 
gestalten. Die Logikpegel der PIA ent¬ 
sprechen nämlich dem TTL-Standard. 
Dies bedeutet, daß die auszugebenden 
Informationen ohne Probleme durch 
recht preiswerte integrierte Bausteine 
weiterzuverarbeiten sind. Bei der Ein¬ 
gabe genügt es sogar im einfachsten 
Fall (wie es beispielsweise bei den Joy¬ 
sticks praktiziert wird), einen Eingang 
auf +5 Volt zu legen, um ein logisches 
Signal »Eins« zu erhalten. 


Die Zusatztastatur 


Als ein Beispiel, wie man externe 
Daten aufnehmen kann, wird hier eine 
Zusatztastatur beschrieben. Diese Ta¬ 
statur besteht aus 12 Tasten, könnte 
aber auf bis zu 15 erweitert werden. 
Neben den Tasten besteht diese Schai- 
tung im wesentlichen aus nur drei ICs. 
Einem 7400, er enthält vier NAND-Gat¬ 
ter und zwei ICs des Typs 74148. Dies 
sind sogenannte »8 zu 3 Prioritäts¬ 
encoder« (der Schaltplan für die Zu¬ 
satztastatur ist Bild 1 zu entnehmen). 
Der Vorteil dieser Schaltung liegt darin, 
daß ein einziger Joystickport ausreicht. 
Es werden nur vier Datenleitungen be- 


©- 


4.7 kÖ 

HZZF 



BC 107 e 


560 Q 


ilED 


ist Pin 1-4 auf 
Port A und Port B 


1 2 3 4 5 


\o o o oo/ 
\ O o O o/ 


7 8 9 

©0 


1 

Transistor BC 107 

1 

Widerstand 4,7 kOhm 

1 

Widerstand 560 Ohm 

1 

Leuchtdiode 

1 

Stecker 9pol. 

Bauteileliste für einen Kanal 


1013 

REM 

^Ül> 

110 

REM *2USATZTASTATUR*UEEER* 

<MW> 

120 

REM ^DIE^PIARABERAGEN- 

<AR> 

130 

REM *****„^^^.^^**...******* 

<oo> 

140 

REM .-.von^Wol^qangACzerny.*.^ 

<CC> 

150 

REM ******^^^*—^—--- 

<OB> 

160 

GRAPHICS 0 

<SS> 

200 

X=PEEK(632) 

<AN> 

210 

IF THEN 200 

<WU> 

220 

? "1>IE*GETIPPTE^ZAHL*LAUTET*: " ; X“1 

<VS> 

230 

GOTO 200 

<LX> 


A Bild 3. Gepuffer¬ 
ter Ausgang für 
einen Kanal Ent¬ 
sprechend werden 
acht Schaltungen 
benötigt, um alle 
Kanäle anzuspre¬ 
chen. 

M Listing 1. 

Ein kurzes 
Beispielsprogramm 
zur Tastaturabfrage 
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nötigt, um die maximal 16 verschiede¬ 
nen Zustände zu melden. Die Versor¬ 
gungsspannung für die ICs wird dem 
Joystick-Port entnommen, so daß man 
ohne zusätzliches Netzteil auskommt. 
Usting 1 zeigt, wie man die Tastatur 
abfragen kann. Ist keine Taste gedrückt, 
erhält man den Wert Null, ansonsten 
einen Wert zwischen 1 und 11. 

Auch die Datenausgabe ist hardware¬ 
mäßig einfach zu realisieren. Die Schal¬ 
tung in Bild 2 zeigt, wie man mit nur zwei 
ICs, acht Widerständen und acht 
üeuchtdioden bereits die logischen 
Zustände aller Datenleitungen sichtbar 
machen kann. Da sich die Gesamt¬ 
schaltung aus zwei identischen Teilen 
zusammensetzt, sieht man in Bild 2 nur 
den Aufbau für vier Kanäle Die beiden 
ICs des Typs 7417 übernehmen hierbei 
die Aufgabe der Pufferung. Sie sind not¬ 
wendig, um die PIA vor Überlastung zu 
schützen. An die Ausgänge der Puffer¬ 
bausteine kann man nun wie in unserem 
Beispiel, Leuchtdioden, aber auch 
Optokoppler oder TTL-kompatible 
Kleinrelais anschließen. 


Daten sichtbar gemacht 


Bis ZU diesem Punkt kommt man auch 
mit dem Schaltinterface mit der Strom¬ 
versorgung der Joystickports aus. Es 
ist somit kein zusätzliches Netzteil 
erforderlich. Begnügt man sich mit der 
Steuerung von Leuchtdioden, so kann 
man auch die Schaltung in Bild 3 ver¬ 
wenden. Auch hier gilt: Die abge¬ 
druckte Schaltung in Bild 3 bezieht sich 
wieder auf nur einen Kanal. 

Pro Datenleitung benötigt man zwei 
Widerstände, einen Transistor und eine 
Leuchtdiode Auch hier wird ein Puffe¬ 
rungseffekt erreicht, da der Strom der 
Leuchtdiode nicht mehr über die PIA, 
sondern über den Transistor läuft. 

Das etwas umfangreichere Listing 2 
zeigt, wie man diese Schaltungen 
ansteuern kann. Neben einem program¬ 
mierbaren Lauflicht ist auch eine Zeit¬ 
schaltuhr realisierbar, die eine der 
Datenleitungen zu einem vorgewählten 
Zeitpunkt ein- oder ausschaltet. Um das 
Lauflicht schnell genug zu machen, ist 
eine Maschinenroutine in das Listing 
aufgenommen worden. Sie verschiebt 
den Registerinhalt des Ports A jeweils 
um 1 Bit nach links oder rechts, abhän¬ 
gig von der Einsprungstelle. Alles wei¬ 
tere kann man dem Usting selbst pro¬ 
blemlos entnehmen. 

(Wolfgang Czerny/wb) 


Listing 2. Mit diesem Programm kann ^ 
die Schaltung von Bild 2 als Schalt¬ 
uhr eingesetzt werden. Weiterhin ist 
noch eine Lauflicht-Funktion einge¬ 
baut 



1 ft KBMTRDLLE 


LlO REH 
120 REH 
130 REH 


150 REM .^PQKE.J5i401B. 

J 40 REH CMTUMIia-_ 

170 REH STEFuODRfl,..,.,,... ^ ^ ^ ^ ^ 

ISO REH .^POKE^540 IS . 255L.SETZ 
1^0 REH 


200 REM ^POKELJ54019,52^5ETZT,..DrtftfW^ 
210 REM 

220 REM ^P0KE..^54O16, Ü^SETZT,..ftLLE,.^....^ 


230 REM ..■.-..■..■..■...B l TS^jfltJF...LOg 
240 REM ^^^^^^^ 1.-^ ^^^^^ .1..1.A.. 

250 REM f 

300 P1=5401d.: P2=5401S: DI M R_ C7) , DAT* C 4C» 
,EXN1.£3^ 

310 EOSufi 9OO0sGOSuB lOOOO 

490 REM - 

500 REH WHJPTMFMUE 

510 GRAPHICS 0:PaK£ 752,1 

515 PDKE 709,255:P[JKE 710,0 

520 REBTORE 11000 

530 FOR 1=2 TD 16iHEäO DAT* 

540 POSITION. e,I:? DAT* 

550 KEXT I 

700 OPEN »1,4,0, “(C:-iGET #1,K;C1_0S£ #1 

710 3F K<49 OR K>53 THEN 700 

720 OH IC-4Ö GCSUB 1000,2000,9000,5000,15 

OOO 

SOO GOTO 500 

REM---- 

JOOO REM .J4=*JF1LICHT,.. 

10 lO 7 CHRt U25) 5 PDKE 752* J ; RESTÜftE: 


500 


1020 POSITION 1,4*2; 7 "LAUFE ICHT" 

1030 POSITION 14,3:? “iCTL R>tCTE RJtCTL 
R>^CTL RTtCTE RJ^CTL R>CCTE RICCTE CC 
Ti_ 

1040 PQR 1=5 TO U:REOD DAT» 

1050 PCßlTION 3,1:? DAT* 

1060 I^XT I 

lllO READ DAT*:POSITION 2*15:? DAT* 

H2Ü POEITICIM 2,10r? -CSHlFT *1; CHR* £2 
7}; CHR*t30); inks.,^SHIFT =>-J‘;C 

HR* t27^ ;CHR* 1 i ’-^Cui‘*or_r&=hta_<SHlFT 

=>- 

1130 FDR 1-17 TO 71zREfiI> MT* 

1140 POSITION 2,1;? DAT* 
llSO NEXT 1 

lieO POSITION 33,10:? "C" 

1190 PQK5E 764,233:F=0:C:P=33 
1195 FOR 1=0 TO 7;FL<I>=-0:NEXT J 
1200 TC-PEaC£764>:3C=PeEK<53279> 

1210 IF TC=6 THEN POSITION CP,!*;? 
ft<3:^4:F=F+l:GCTa 1300 

1220 IF TOp 7 THEN POSITION CP, lO: ? C 

p=Ca>+4:F=F-t:SIT0 1300 

1230 IF TC-2S OR TC-33 THEN PLiF>={33=TC 
>=GOTO 1400 

1250 IF SO«* THEN ISOO 

1200 IF SC=^5 THEW 500 

1270 IF SC-3 THEN EDIT-l:GOTO lOOö 

12S0 GOTO 1200 

1300 IF F<0 THEW F-7iCP-« 


<SD> 

<D1> 

Cl-rt> 

<UB> 

<D0> 

<«M> 

iZ2> 

<UW> 

tLO> 

<UD> 

<AJ> 

<TW> 

<ME^ 

<DP> 

<RD> 

<DT> 

<ZN> 

<ve> 

<It*> 

<HA> 

<CH> 

<AR> 

<N1> 

<AQ> 

CGF> 

<IJF> 

ClOC> 

CTGi 

CATy 

<GI> 

<SV> 

<:CT> 


<XI> 

<uvi. 

<CE> 

<FH> 

<DB> 


<LA> 

<GW> 
<BD> 
<FS> 
<EH> 
<IP> 
K JT> 
<l*i> 

CHN> 

CIOJ 

<SQ> 
<EM> 
<007 
<nu> 
<oo> 

<FE> 

1310 IF F>7 THEH F=0:CP=33 <flU> 

1340 POSITION CP*10:? ~C' <Ca> 

1350 POKE 7*4,255: GOTO 1200 <TL> 

1400 IF FL(F1-0 POSITION CF, 7:? <PD> 

1410 IF FECF>=1 THEN POSITION CP,7:? 

<EV> 


1420 POKE 704,255:eaTO 1200 

1500 FUSITION 2*23i7 "L-E I NK^OTAT 1 ON.*/.. 

R=RECHTSRÜTAT EON**; 

1510 OPEN •1*4,0, "Kp "-CUT •1,K:CE0SE Itl 
1520 IF K<>7i AND KOB2 THEN 1510 
1530 IF K=7A THEN SHIFT=I534. 

1340 IF k-BS T1^ EH1FT=1555 

1690 REM BINAER-BEI 11HUAMIH.UHG 

1700 HERT-O^FOft t-*0 TD 7: X =FL< I > : WERT=«E 

RT+2^I*i!:NEXT I:POKE PI.WERT 

170= HCM START LAUFEICHT 

1710 BC=PEEK£532793 

1720 IF SC»3 TmEN ElilT=l:SOTO 1000 
1730 IF SC=5 TUEN GOTO 500 
1750 COSUß SOOOsX-USft{SHlFT) 

1760 GOTO 1710 

1979 REH ---- 

2000 REM BIKAERZAEHLER 

2010 FOR Y=t TO 10:FaR 3-*0 TD 2SzPClKE P 
l*liGDSuB SOOO:NEXT I:NEXT Y 
2020 RETURN 

2999 REM-——-- 


<TE> 

<E!N> 

<YY> 

<DC> 

<:ga> 

<A5> 

<yi,ü> 

<HZ> 

<JA> 

<XL> 

<MR> 

^GZ> 

<TR> 

<RM> 

-CEW> 

CWE> 

<OV7 

<Pft> 

<EX> 

-£WY> 

<GC> 


<SA> 

<YR> 


<AX> 


5000 REM SCHALTEHR 
5010 ? CHR*<J25J 

3020 POSITION 2,7:? “WBLCHEM^KANAL^SCWAL 
TEN* 11-83-.";;rwVT KANAL 
5030 EF KAHAECl OR KANAL>9 THEN 5010 
5035 POSITION 2,9:? "MOLtJEK*SIE*ElN--JaDe 
R* AUSSCHÖLTEN" 

5040 PQSITIf3N 2, ll:? “EIN=1 *AUS=0-*"; = 

UT EIN <WT> 

5050 IF EIN<0 OR EIN>1 TfON 5040 <TO> 

5090 IF E;II4#0 TMEN POKE Pl,233 <AD> 

5100 IF EIN=1 THEN POKE P1,0 ■£hG.> 

5110 PaSITlDti 2,13;? “GESENKSIE*DIERHÖHE 
NTAWE^UffftZEIT-EIN“ <UF> 

5120 POSITION 2,14:? “<STD,MIN,SEC3:I 
NPGT STD,MIN,SEC <ICDi 

5130 IF STÜ>23 Oft STIKO Oft HlN>S9 Oft MIN 
<0 OR SEC>59 OR BEC<0 THEN 5120 <TC> 

5140 UPl-tSTD*3600-t'flEN^^60+S£C)*5C) <EK> 

5150 UP2=INTtUPI 725672563 CFC> 

SlSS UPl-UPl-ÜP2-2S6*256 <DG> 

51*0 UP3= INT ^UPl 7256 > = UPI "UP 1 -IJP3*236 CKL > 

3163 PDKE lO,UP2:POKE 19,UP3:P0KE 20,UPI <ia> 

5170 POSITION 2,16=9 "GEfiEhLSlE-D 1E..5CHA 
LTZEIT^EIN" <SL> 

5130 PCSiTlON 2*17:9 " CSTD, MIM, SEC3 
NPUT 5T1>1,MIN1,SEC1 <KX> 

5l9o IF STD1>23 Oft STDlCO Oft MlNl>59 OR 
MINKO DR SEC1>39 DR SEC1<0 "mEN 5190 <JB> 


SCHALTlJ-lFLJ_A£UFT " 


5200 ? CHR*11253 
5210 POSITION H,4z9 

5220 POSITION 11,5:? "-——-" 

S230 IF EIH^ THEN EIKt="AU3" 

5240 IF EIN=1 TTEN ElM*-"£lPJ- 

5250 POBITIOW 1,9;? "KANAL-" ;KANALi ".*WIR 

D*UM*-:STD1: ":-:MjNlj i-: "!S£C1;"...-;EIN»; " 

geschaltet- 

5300 Ui=PEEK(lB> :U2=PE]EK<19> l:U3=PEEKf2Ü> 
5310 U1=INT< fUl*250*2S*+U!2*256-HJ33/5O3 
5320 U2“INTfU17S600>;Ul=Ul-U2*36O0 
5330 U3-IHT £Ui/60) :U1=UHJ3*60 
5340 U2=U2-244(U2>-24> 

53SÖ ftOSlTlOW 10,12:? U?;;U3;":"jUl 
5360 POSITION 10,12:? U2;":";U3:":"iUl 
5380 IF BTD10U2 OR MIN1<>U3 Oft SeC;I^>Ul 
TFEN 3300 

5390 IF ElN-1 TFCN POKE Pl * 2 ''ckAnAl-I > 
5400 IF EIN=0 THEN POKE Pt,0 
5900 RETURN 

BOOO REM VERZQEGERur^SCHL£IFE 
0O1O FOR DELAY=1 TD 50:HEXT DELAY 
B020 «ETURH 

9000 ft£M LOeSCHEN LEOS PORT 172 

9010 POKE P2,48 

9020 TOKE PI,255 

9030 POKE P2,52 

9040 POKE PI,0 

9050 RETURN 

9999 REM --—--- 

10000 REM Maschinen File laden 
lOOlO RESTQRE lOIÜO 

10020 FOR A^1536 TO 1579: READ D:PaKE A,D 
iNCXT A 

10030 REM LINK3=1536 / RECHTS=1555 
10090 RETURN 

lOlOO DATA-104,24,173,0,211,10,176,3*76, 

39,6,141,43*6*169,1,76,35 

10310 DATA..6, 104, 24, 173,0,211,74, 176*3*7 

6*39,6,141,43,6,169,120,24 

10120 DATA..109,43, 6, 141,0,211,96,0 

llOOÜ REM DATASJ«UPTMENIJE 

llOlO DATA 

11020 DATfl^HflUPTMENU 
11030 DATA 
11040 DATA 

llöSO DATA^1_-.*LAUFLICHT 
11060 DATA 

11070 0ATA^2—-B3NA£ft..LAUF 
llOeO DATA 

11090 DötA^Z^-^AULC^LOEiSChCN 
11100 DATA 

llllOi DflTA.4---SCMALTLIFR 

11120 DATA 

11130 DATA-.5^--END£ 

L1140 DATA 
11150 data 

12000 REM OATAS-LAuFLlCHT-.f£7«JE 
12010 DATA-tCTL Q^^CTL R><CTL RliCTL R>T 
CTL «XCTL RitCTL RTCCTL fti^CTL W5<CTL ft 
TCCTL RXCTL R> tCTL «> TCTL n> iCTL R> CCTL 
RiCCTL W3CCTL H7CCTL ftlCCTU ft7CCTL WltC 
TL R>CCTL RJtCTL R>CCTL MJfCTL RJ<CTL R> 
CCTL ft>iCTL WjiCTL ftS CCTL ftXCTL ftSKCTU 
12020 DATA-CSHIFT =>-**^TSHIFT =5.*^TSHIF 

T «.7 ^CSHIFT -1 .^CSHIFT CSHTFT ■> 

— <SHIFT =>-—fSHIFT => —tSHIFT => 

12030 DATA^iSHlFT _ <SkiFT -I^^CSmIF 

T =>--^tSHIFT —iSHlFT =>--.-.^SHIFT =J 

^^tSHlFT -1_iSHlFT _tSHlFT 

12040 DATA-<SHIFT =>-^^SHIFT =>-.**^<SHIF 

r _iSHlFT "S_CSHIFT -1_tSHlFT *^5 

**-.TSHIFT =J-**TSHIFT =5-*-TSHIFT =J 
L20a0 DATA-^CTL A>£CTL RI CCTL RXGTL RI t 
CTL S>teTL RJCCTL R>^CTL RJ<CTL S>tCH. R 
>^CTL RTtCTL Rl-iCTL SXCTL RJ iCTL R> tCTU 
RliCTL S1iCTL ftliCTL CCTL R> <CTL 55 ^C 
TL RXCTL R>^C7L R> CCTL B> ^CTL RTICTL R> 
iCTL RJtCTL SICCTL R>tCTL R5iCTL R>(CTL 
12060 D6Tfl*<3HlFT =>-.**<SHIFT =J***T34JF 

T »5 -tSHlFT -5.*.*^tSHIFT -5 iSH I FT *5 

—:shift =j**xshift =t***;shift => 
12070 DATA-tCTL 7>^CTL ft>tCTL ftlCCTL ftj£ 
CTL X5<CTL R>CCTL R;<CTL R>tCTL XStCTL R 
5^CTL Rl<CTl_ ft>€CTL X>(CTL ft>^CTL ftXCTL 
R>^CTL XXICTL RI-CCTL RXCTL RJ ^CTL X> tC 
TL ftl<CTL ftitCTL ftliCTL X>iCTL ftl CCTL ft> 
CCTL RXCTL XJ CCTL RXCTL ftJ CCTL ftj CCTL 
120B0 DATA-CCTL QiCCTL B7CCTL RJCCTL R>C 
CTL RJCCTL RTCCTL RI CCTL RXCTL ftl CCTL R 
7CCTL RXCTL ftJCCTL RXCTL RXCTL RJCCTL 
RXCTL R>CCTL W> CCTL R5 CCTL ft> CCTL ftl CC 
TL RlCCTL RXCTL RJ CCTL RXCTL RJ CCTL R> 
CCTL RXCTL R> CCTL RI CCTL ftlCCTL ft^CCTL 
ft>CCTL RJCCTL RJCCTL EJ 

12100 DATA-.CCTL ft> CCTL RXCTL R> CCTL RI C 
CTL ftjCcTL R7CCTL RXCTL RJ CCTL RJ CCTL R 
> CCTL R> CCTL R> CCTL R5 CCTL Ri<CTL Ri<CTL 
RJCCTL RJCCTL S>CCTL R>CCTL R>CCTL RiCC 
TL RiCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJ 
CCTL RiCCTL RiCCTL RJ CCTL R> CCTL RJ CCTL 
RJCCTL RJCCTL RJCCTL DJ 

12110 DATA-CSHIFT =>-Space—=^-SeT.*.*CSMI 
FT =.J...Evc-=^UN3ET-^™CSHIFT 
12120 DATA.-CCTL Ai CCTL Ri CCTL Ri CCTL Ri C 
CTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL R 
JCCTL WXCTL RJCCTL RJCCTL RJCCTL RJCCTL 
ftXCTL RJCCTL XlCCTL ft J CCTL ftXCTL ftJ CC 
TL RJCCTL WJCCTL RJCCTL RJCCTL RJCCTL RJ 
CCTL RJCCTL ftXCTL ft J CCTL ft JCCTL ftXCTL 
RJCCTL RJCCTL RJCCTL DJ 

1213D DATA^CSHIFT »JCTAftT^RUNCSMIFT »JSE 
LECT^HefMiO-tlFT =JOPTrON^di t-CSHJFT =J 
12140 DATA-CCTL ^ICCTL ft>CCTL ftiCCTL ftX 
CTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL R 
JCCTL XXCTL RJCCTL fti CCTL RJCCTL RJCCTL 
RJCCTL RJCCTL RJCCTL RXCTL RJCCTL RXC 
TL ftXCTL KXCTL fti CCTL RJ CCTL RJCCTL RJ 
CCTL RJ CCTL RJ CCTL RJ CCTL RJ CCTL RJ CCTL 
RJCCTL ftiCCTL RJCCTL CJ 
15000 END 


CGD> 

CJN> 

CGPi 

<FY> 

<SS> 


<UFi 

<DD> 

<BM> 

CROJ 

■<XG> 

<HM> 

<KYi 

CLB> 

<MF> 

<DH> 

<GZ> 

<PP> 

CFO 

<IK> 

<0F> 

CftCii 

<FD> 

<QQ> 

<DI> 

CEUi 

CAQ> 

CUTJ 

<pa> 

<FEi 

<LY> 

CEUi 

cexi 

<JL> 

<UKi 

ClUi 

<P1> 
<DD> 
Cftl J 
<LH> 
C2HJ 
<LPi 
<LTJ 
<JV> 
<MB> 
CHEJ 
<MJ> 
CHBJ 
<LB> 
C2Vi 
<LO> 
<ZV> 
CLUJ 
<MA> 
CfiVi 


<MN> 

<oa> 


<DE> 

CAÜ> 


<Ifli 

<JY> 




















































Mit einer einfachen und preis¬ 
werten Schaltung wird der Atari 
zur Steuerungseinheit für Elek¬ 
tromotoren. Damit läßt sich ein 
Robotarm dirigieren. 

/ rndustrieroboter übernehmen heute 
in vielen Fabriken die schmutzigen 
und schweren Arbeiten. Ein Atari 
wäre bei diesen komplizierten Produk¬ 
tionsabläufen natürlich überfordert. 
Doch für die Steuerung von kleinen 
Modelirobotern ist er hervorragend 
geeignet. Einen einfachen Robotarm zu 
bauen, ist gar nicht so schwierig. Die 
Konsbüktionsbaukästen von Märklin, 
Trix oder von Fischertechnik, sind eine 
gute Grundlage Zusätzlich benötigt 
man natürlich noch die entsprechen¬ 
den Motoren und Getriebe. Einige 
Punkte sind bei der Planung zu 
beachten: 

1. Es sollten nur Gleichspannungsmo¬ 
toren eingesetzt werden (6-12 V) 

2. Alle Motore brauchen ein Getriebe 
möglichst mit Schneckenrad-Antrieb 
3. Stabiler, mechanischer Aufbau mit 
großer Grundplatte 

4. Beim Verlegen der Kabel ßewegungs- 
achsen beachten 

5. Geeignete Stromquellen benutzen 
(Netzteile) 

Entwerfen wir ein Konzept: 

□ Anzahl der Freiheitsgrade: Die 
Anzahl ist abhängig von der Funktion. 
Drei Freiheitsgrade sind in der Regel 
ausreichend, das heißt, drei bewegli¬ 
che Achsen und drei Motore. Sie sind 
nötig zum Drehen des Grundkreises, 
heben und senken der senkrechten 
Achse, aus- und einfahren der waage¬ 
rechten Achse. 

□ Größe des Verfahrweges: Der Ver¬ 
fahrweg ist individuell zu gestalten, er 
ist verantwortlich für den Aktionsradius 
des Armes. 

□ Positionierung eines Robotarmes: 
Um den Geldbeutel zu schonen, ver¬ 
wenden wir keine Schrittmotoren. 
Besitzer eines Atari 400/800 können 



Roboter 
im Griff 


Pins 

Beschreibung 

1 bis 4 

7 

8 

DATA 

+5 Vdt maximal 40 mA 
GND (Masse) 


o o o o o 

.1 2 3 4 5> 

6 7 8 9 

o o o o 


Die Anschlußbelegiing eines Joystickporfs 


1 bis 4{DATA) 

Q 


10 kö 


Schaltplan für einen 
Kanal. Für den Auf¬ 
bau der Schaltung 
eignet sich beispiels¬ 
weise eine Loch- 
rasterplatlne (erhält¬ 
lich in jedem Elek¬ 
tron! k-Zubehör- 
Geschäft). 


1 X1N4148 
1 X BC 547 

1 X Reedreiais Typ DA1-5V-D National 
Panasonic AG6319 
1 X 100 Ohm 1/4 Watt 
1x10 KOhm 1/4 Watt 
Stückliste für einen Kanal 



7{+5 Volt) 

Q 


1N4148 
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sich freuen, weil hier Port 3 und 4 noch 
frei sind. XL-Besitzer dagegen müssen 
sich mit der Steuerung über den Timer 
zufriedengeben. 

Der Atari-Computer ist natürlich nicht 
zum Steuern eines Robotarms ausge¬ 
legt. Wir müssen deshalb eine kleine 
Schaltung aufbauen (siehe Schaltplan). 
Damit sind wir in der Lage, den Arm von 
Basic aus zu steuern. Die Schaltung 
wird über Port 1 und 2 angeschlossen. 
Die Ports werden mit »POKE 54018,1« 
auf Datenausgabe umgeschaJtet. Aber 
Vorsicht, nach Ausführung dieses 
POKE-Befehls darf kein Joystick mehr 
angeschlossen sein. Mit »POKE 
54016,0-255« werden die Datenka¬ 
näle geschaltet. Jetzt steht uns eine 
Parallel-Schnittstelle mit 8 Bit zur Verfü¬ 
gung. Liegt ein Datensignal an, schaltet 
der Transistor die computereigene 
5-Voit-Spannung auf das Reedreiais, 
welches dann anzieht. Durch sinnvollen 
Einsatz der POKEs kann man allen 
Motoren gleichzeitig ohne Interrupt- 
Programmierung ansteuern. Beim Atari 
400 oder 800 kann man zusätzlich 
noch Potentiometer an alle Achsen 
anbauen (Wert 2MOhm) und über Port 
3 und 4 den Wert erfassen. Damit ist es 
möglich den Arm relativ genau zu posi¬ 
tionieren. 

Alle Atari-XL-Benutzer können nur 
über die Zeit positionieren und haben 
den Nachteil ungenauer Steuerung. 
Wird nämlich der Motor belastet (zum 
Beispiel durch ein Gewicht), läuft er 
langsamer und erreicht die gewünschte 
Position nicht mehr. Hardwarespeziali¬ 
sten können versuchen über die neue 
Schnittstelle zum Erfolg zu gelangen. 

Das Basic-Programm ist für zwei 
Motoren ausgelegt und arbeitet mit 
einem Joystick in Port 4. Mit dem Joy¬ 
stick sind alle Bewegungen zu steuern. 
Pfiffige können das Programm so 
umschreiben, das sogar ein »Teach in« 
möglich wird. Das heißt, steuern des 
Armes zur gewünschten Position mit 
dem Joystick, übernehmen des Wertes 
in das Programm und danach automati¬ 
scher Ablauf des Vorgangs. Als Greifer 
leistet ein umgebautes Relais gute 
Dienste Damit kann man metallische 
Gegenstände greifen und transportie¬ 
ren. Ein preiswerter Elektromagnet 
funktioniert natürlich auch. 

Zum Schluß noch einige Tips: Die 
Joystickports sollten pro Kanal nicht 
höher als mit 10 mA belastet werden. 
Die Spule der Relais muß also die Werte 
5 V/500 Ohm haben. Oie Positionie¬ 
rungspotis sollten untersetzt werden, 
damit der gewünschte Punkt nicht 
überfahren wird. Auch alle Getriebe 
sollten über Schnecken und Schnek- 
kenräder untersetzt sein, damit eine 
Bremse überflüssig wird. 

(Jürgen Warschinsky/wb) 


Schaltung 1 Schaltung 2 



Relais 1. Potwende- Relais 2. Unterbrecher 

Schalter 2 x UM 1 x Ein (Stop) 

{Rechts-ünkstauf) 


Schematischer Aufbau der Schaltung 


4 PRINT CHR.f (l25> 

5 POKE S401Ö,1;X-54016;POSITION 10,8:7 " 
BEWEGUNG;" 

10 A=STICK<3) 

20 IF A=iS THEN POKE X^245:POSITION 10,1 
0:7 " STOP 

30 IF A=^14 THEN POKE X, 249: POSITION 10,1 
0:? " UP 

40 IF A-13 THEN POKE X,253:POSITION 10,1 
0:7 " DOWN 

50 IF A=ll THEN PDKE X,247:POSITION 10,1 
0:7 ■' LEFT 

60 IF A=-7 THEN POKE X, 246: POSITION 10,10 
:? “ RIGHT 

70 IF A-9 THEN POKE X,255:POSITION 10,10 
:? ^*DGWN Z'. LEFT " 

80 IF A=5 THEN POKE X,254:PDSITION 10,10 
:7 "DOWN RIGHT" 

90 IF A=10 THEN POKE X,251:POSITION 10,1 
0;? " UP LEFT *' 

100 IF A=6 THEN POKE X,250;POSITION 10,1 
0:7 " UP RIGHT " 

110 GOTO 10 


üstlng zur Ansteuerung des Sei bstbau^ch alt Interfaces 
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1. Lükie/P.LükE 

OerATARISZOST 

2. überarbeitet« und erweiterte 
Auflage 19^, 19$ Seiten 

Dieses Buch enthält alle Informationer], 
die für Irrteressierte und für eile stolzen 
Besitzer eines gerade erworbenen ATA¬ 
RI 520/260 ST wächtäg sind. Die jetzt 
vorliegende überarbeitete und erweiter¬ 
te Auflage trägt den neuesten EntwicK' 
luhgen bei Atari Rechnung, Unter ande¬ 
rem wurden das inzwischen deutsch¬ 
sprachige Belriebssyslem und einige 
geänderte SystemausstattungsTnerk- 
male berücksichtigt Das Such ist somit 
nicht nurcine Rechnerbeschreibung mit 
hohem Informationswert, es leistet auch 
als Nachschlagewerk wertvolle Dienste. 
Best.-Nr. MT 90229 
ISBN S-69D9D 229-4 
DM 49,-/sFr. 45.10/äS 382,20 


1. Luke/P. 

Das Systamhandtiuch 
zumATABtST 

2, OuartaM9S6, ca« 300 Seiten 

Zwei Themen bilden die Schwerpunkte 
des vctliegenden Buches; 

Die Struktur der 6S00OCPU und der 
ATARI 520/260 ST 

Die ausführliche Beschreibung der Ar¬ 
chitektur der ÖSOOO-Fämilie (6 ©000, 
6600©, 66010, 63020) und ihrem Bq- 
fehlssatz wird ergSriztdurch einen Nach- 
schlageteil mit zwei- bisdreizeiligen Bei- 
apielsequertzen. Auf dieser theoreti¬ 
schen Basis wird die Programmierumge¬ 
bung des ATARI 520/260ST anhand 
vieler Beispietprogrämme dargesteJIt 
Die Entwicklung dieser Programme De- 
fert dem Leser gleichzeitig eine BibRo- 
thek mit Rouliner> zur Ansteuerung des 
BiLdschInnnteils, der Tonerzeugungs- 
schaltung und der Schnittstellen (MIDI, 
V24, Tastatur. Maus), Besondere Auf- 
merksamkeft wird der Enbindung von 
NläschinenspfächTTiüdulen in das Be¬ 
triebssystem und in höhere Program¬ 
miersprachen {z. B. BASIC uikJ C) gewid- 
meL Die Besprechung eines 6S000- 
Assemblers und einige gerätespezifi¬ 
sche Masctünensprachmodule runden 
das Buch ab. 

8est.-Nr. MT 90216 
ISBN 3^9090-216-2 
DM 52,-^3Fr,47.60föS 40S.60 


W. Fastenrath 

ATARE ST BASlC-Handi)ucEi 

1. Quartal 1966^ ca. 250 Seiten 

Suchen Sie eine Anleitung zur intensiven Ausnutzung der Fähigkeiten des ATARI 520/260 ST? Dann ist 
dieses Buch genau das richtige für Sie! Sie erfahren alles über das BASIC-Syslem des ATARI ST. Jeder 
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TURBO-BASIC 



Der große Türbo-Basic-TeU 


TurboBasic XL ist extrem 
schnell, komfortabel und erlaubt 
Programmstrukturen wie Pascal. 
Der Turbo-BasioCompiler, der 
sich nun zur Turbo-Serie hinzu- 
gesellt hat, steigert das Pro¬ 
grammiervergnügen und die 
Geschwindigkeit noch einmal. 

7 p urbo-Basic XL werden manche 
Leser bereits kennen (der Inter¬ 
preter wurde in Happy-Computer, 
Ausgabe 12/85 abgedruckt). Eventuell 
haben Sie auch schon erste Erfahrun¬ 
gen mit diesem leistungsfähigen Inter¬ 
preter gesammelt. Dann werden Sie 
bestimmt nicht mehr allzuhäufig mit 
dem normten Atari-Basic arbeiten und 
lieber auf das Turbo-Basic XL zurück¬ 
greifen. Aus diesem Grund veröffentli¬ 
chen wir den Interpreter noch einmal in 
diesem Sonderheft. Wir sind nämlich 
der Meinung, daß sich Turbo-Basic XL 
unter möglichst vielen Atari-Fans ver¬ 
breiten sollte 

Wenn Sie den Interpreter allerdings 
noch nicht kennen, schenken Sie den 
nächsten Seiten Ihre Aufmerksamkeit. 
Dort finden Sie eine ausführliche Erklä¬ 
rung zu allen Turbo-BaSic-XL-spezifi- 
schen Befehlen. Hinzu kommen einige 
neue Fehlermeldungen und die Mög¬ 
lichkeit, verschiedene Disketten-Be- 
fehle direkt von Basic auszuführen. Las¬ 


sen Sie sich aber nicht von dem um¬ 
fangreichen Listing abschrecken. Denn 
haben Sie das Programm erst einmal 
abgetippt, werden Sie es nicht 
bereuen. Dessen sind wir ganz sicher. 

Gleich im Anschluß an den Turbo- 
Basic-XL-Interpreter finden Sie einen 
weiteren Leckerbissen; Den Turbo- 
Basic-Compiler, ebenfalls zum Abtip¬ 
pen. Einen superschnellen Compiler, 
der selbst in AtEffi-Basic geschriebene 
Programme verarbeitet. Das Compilat 
zählt mit zu den schnellsten. Überzeu¬ 
gen Sie sich selbst von den Ergebnis¬ 
sen. Auf der Seite 32 sind die erzielten 
Rechenzeiten aufgelistet. Unser Com¬ 
piler hat selbst kommerzielle Compiler 
um Längen geschlagen. 

Damit sich die beiden »Wunderkin¬ 
der« auch gleich bewähren können, 
sind einige Turbo-Basic-XL-Programme 
hier abgedruckt. Beachten Sie aber 
bitte: Diese Beispielprogramme laufen 
nicht unter Atari-Basic! Es kommen 
nämlich spezielle Turbo-Basic XL- 
Befehle zur Anwendung, die Atari- 
Basic nicht verarbeiten kann. So ist bei¬ 
spielsweise im Programm »Grafikspiele¬ 
reien« der »MOVE«-Befehl eingebaut, 
der ein sehr schnelles Verlagern des 
Bllschirmspeichers bewirkt. So wird ein 
Grafikbild mal auf den Kopf gestellt oder 
über die Mittelachse hinweg gespie¬ 
gelt. Aber lassen Sie sich überraschen! 
Das Programm bietet viele wirkungs¬ 
volle Effekte, die sich ansonsten in 


Atari-Basic nur durch spezielle 
Maschinensprach-Routinen realisieren 
lassen. 

Oder werfen Sie einen Blick auf das 
Programm »Apfelmännchen«. Dieses 
Programm erzeugt die tollsten Grafiken. 
Ein farbiges Beispiel finden Sie im 
Inhaltsverzeichnis am Anfang des Hef¬ 
tes. Hier kommt ein weiterer Vorzug von 
Turbo-Basic XL voll zur Geltung, näm¬ 
lich der, strukturiert zu programmieren. 
Es wurde vor allem der Befehl »EXEC 
Prozedur« eingesetzt. So lassen sich 
selbst Prozeduren unter Turbo-Basic 
XL definieren. Beim genaueren 
Studium des »Apfetmännchen«-Pro¬ 
gramms wird Ihnen sicherlich auffallen, 
daß in dem Programm kein einziger 
GOTO- oder GOSUB-Befehl auftaucht. 
Dies ist eine der wichtigsten Vorausset¬ 
zungen der strukturierten Programmie¬ 
rung. 

Es spricht also einiges zugunsten 
unseres Interpreters und Compilers. 
Um noch mehr Atari-Besitzer in den 
Genuß des Turbo-Basic XL-Interpreters 
zu bringen, ist eine Umsetzung der bei¬ 
den Programme auch für den Atari 260 
ST/520 ST-f in Vorbereitung. Natürlich 
ist in dieser Version auch die Befehls- 
Kompatibilität zwischen dem 800XL 
und den ST-Computern gewährleistet. 
Allerdings benötigen die Programme 
noch einige Zeit bis zur Vollendung. Wir 
halten Sie aber auf dem laufenden. 

(wb) 
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So funktioniert der 
Tdrbo-Basic-Compiier 


Soll ein Basio-Programm schnel¬ 
ler werden, dann greift man ein¬ 
fach zum BasioCompiier. Aber 
wie funictioniert ein solches 
Beschleunigungswunder? 

anche Anwendungen erfor¬ 
dern mehr Tempo, als reine 
Basic-Programme zu bieten 
haben. Dann schreibt man zeitkritische 
Routinen entweder in Maschinenspra¬ 
che oder setzt einen Compiler ein, der 
ein Basic-Programm in Maschinenspra¬ 
che umwandelt. Ljetzteres ist natürlich 
viel einfacher und bequemer, da es 
lediglich den Umgang mit dem Compiler 
vorraussetzt. Außerdem benötigt die 
Compilierung nicht viel Zeit Das Com- 
pilat kann übrigens nicht mehr von 
Basic aus bearbeitet werden, Wenden 
wir uns nun der Funktionsweise des 
Turbo-Basic-Compilers zu. 

Wenn Sie ein Basic-Programm eintip¬ 
pen, zum Beispiel die Programmzeile 
5&100 ?3^4«, faßt der Computer diese 
Zeile zunächst nur als eine Folge von 
Zeichen im ATASCII-Format auf. Unter 
dem Begriff ATASCII versteht man die 
spezielle Atari-Version des ASCII- 
Zeichensatzes (ASCII ist die Abkürzung 
für: American Standard Code for Infor¬ 
mation fnterchange). Der Interpreter 
wandelt den eingegebenen Text in 
Token um. Gleichzeitig überprüft er 
noch die Syntax, also ob die Befehls¬ 
folge auch zulässig ist Diese Aufgabe 
muß meistens auch ein Compiler über¬ 
nehmen. Bild 1 zeigt, wie die Pro¬ 
grammzeile 3^100 ?3*4<c in Token über¬ 
setzt aussieht 

Die Programmzeile wird dann anhand 
ihrer Nummer einsortiert. Durch diese 
Umwandlung in Token und gleichzeiti¬ 


ger Syntaxprüfung wird die Aufgabe 
des Compilers etwas einfacher. Spei¬ 
chert man ein Basic-Programm mit dem 
SAVE-Befehl, werden auch die Token 
gespeichert. Mit LIST hingegen liegt es 
in der Textform vor. Der Turbo-Basic- 
Compiler kann nur die :&SAVE-Ausfüh- 
rung« übersetzen. Ein Transfer der Text- 
Form wäre prinzipiell auch möglich, 
allerdings würde der Compiler hierfür 
mehr Zeit benötigen. Schließlich muß er 
die Befehlsnamen kennen und die 
Variablennamen speichern. Dies würde 
weiterhin die maximale Länge der zu 
compilierenden Programme vermin¬ 
dern. Oder es müßten Zwischenfiles 
auf Diskette angelegt werden, was bei 
den relativ langsamen Atari-Disketten¬ 
laufwerken sehr zeitaufwendig ist. 


Keine Variable 
ohne Nummer 


Bevor Sie ein Basic- oder Turbo-Basic 
XL-Programm compilieren, sollten Sie 
sicherstellen, daß es fehlerfrei läuft. 
Zwar ist dann immer noch nicht gewähr¬ 
leistet, daß das Programm anschlie¬ 
ßend auf Anhieb ordnungsgemäß com- 
piiiert und ausgeführt werden kann. 
Zumindest entfallen aber Syntax- 
Fehler, die zur Fblge hätten, daß Sie Ihr 
Basic-Programm korrigieren müßten, 
um es anschließend nochmals zu com¬ 
pilieren. Auch muß die Struktur Ihrer 
Basic-Programme stimmen. Dazu bie¬ 
tet sich der LIST-Befehl unter Turbo- 
Basic XL an, der bekanntlich FOR- 
NEXT-Schleifen und IFELSE-ENDIF- 
Abfragen einrückt. 

Atari-Basic und Turbo-Basic XL- 
SAVE-Files bestehen aus einem Vor¬ 


spann mit den Variablennamen und eini¬ 
gen anderen Informationen für den 
Interpreter. Diese werden deshalb vor 
dem Einlesen entweder überlesen {wie 
die Variablennamen) oder, in einer 
angepaßten Form, gespeichert. Dies 
betrifft in erster Linie die Variablenty¬ 
pen. Der Variablentyp kann aber nicht 
nur aus der Variablennummer, die im 
Programm gespeichert ist, definiert 
werden. Das Dollarzeichen ($) bei¬ 
spielsweise, welches die Stringvaria¬ 
blen kennzeichnet, wird vom Interpre¬ 
ter nicht im eigentlichen Programm 
gespeichert. 

Bei langen Programmen mit vielen 
Variablen kann man diese Phase der 
Compilation deutlich erkennen. In der 
Info-Zeile (der dritten Bildzeile des 
Turbo-Basic-Compilers) steht dann nur 
das Wort Zeile ohne Zeilennummer. 
Sobald die erste Zeile übersetzt wird, 
erscheint auch die Anzeige der ent¬ 
sprechenden Zeilennummer. 

Jetzt beginnt die eigentliche Compi¬ 
lierung. Sie setzt sich aus zwei Durch¬ 
gängen zusammen, im ersten Durch¬ 
gang (Paß 1) wird das Programm Zeile 
für Zeile und Befehl für Befehl eingele¬ 
sen und in Maschinencode übersetzt. 
Im zweiten Durchgang (Paß 2) werden 
dann noch die offenen Sprungadressen 
eingesetzt. Dazu werden im Paß 1 
GOTO-Sprünge im Code durch einen 
ungültigen Maschinenbefehl mit ange¬ 
hängter Zeilennummer gekennzeich¬ 
net. Im zweiten Durchgang schließlich 
ersetzen dann 6502-J MP-Befehle 
(Code $4C) die ungültigen Maschinen¬ 
befehle. 

Ähnliches gilt für Zahlen und Textkon¬ 
stanten. Sie werden in einem Block hin¬ 
ter dem eigentlichen Basic-Programm 
gespeichert. Die endgültigen Adressen 
stehen dann erst nach der Übersetzung 
fest. Im Anschluß an den zweiten 
Compilier-Durchgang folgt dann noch 
eine Kontrolle, ob offene Schleifen vor¬ 
liegen. Also ob ein NEXT zu einem FOR 
fehlt oder ein WEND zu einem WHILE 
eta Trifft dies zu, erscheint eine Mel¬ 
dung auf dem Bildschirm, Dann folgt 
noch die Überprüfung nach fehlenden 
EN Dl Fs. Durch diese Aufteilung der 
Fehierprüfung (die meisten Fehler wer¬ 
den bereits im ersten Durchgang fest¬ 
gestellt) werden die fehlerhaften Zei¬ 
lennummern nicht komplett sortiert 
ausgegeben, sondern gegebenenfalls 
in vier einzelnen Gruppen. 


Nach der Umwandlung in Token Sieht die Frogrammzeiie »100 ? 3*^4« folgendermaßen 
aus: 

OA 00 15 15 2S OE 40 03 00 00 00 00 24 OE 40 04 00 00 00 00 16 

Dabei bedeuten: 

OA 00 

= Zeilennummer (100) 

15 

= Zeilenlänge 

15 

= Abstand vom Zeilenanfang zum Ende der ersten 
Programmzeile 

28 

= Token für ^7^ 

OE 40 03 00 00 00 00 

= Zahl 3 

24 

= Token für 

OE 40 04 00 00 00 00 

= Zahl 4 

16 

= Token für Zeilenende 


Bild 1. Eine Basic^rogrammzeile, umgesetzt in Token 
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Die meiste Arbeit wird im ersten 
Durchgang geleistet, der Rest dauert 
nur wenige Sekunden. Das Einlesen 
des Programms erfolgt Zeile für Zeile. 
Zuerst zur Zeilennummer: Wenn die 
Zeilennummer größer als 32767 ist, 
dann ist Paß 1 beendet (der Interpreter 
verwendet die Zellennummer 32768 
übrigens als Endekennzeichen). Dann 
schließt der zweite Durchgang an. 
Ansonsten wird die Zeilennummer 
angezeigt und die Zeile Befehl für 
Befehl eingelesen und übersetzt. 

Sollte der Compiler auf einen LIST- 
oder ENTER-Befehl stoßen, wird ein¬ 
fach eine Fehlermeldung mit Zeilen¬ 
nummer ausgegeben, und der nächste 
Befehl kommt an die Reihe 
Keinerlei Probleme bereiten REM- 
oder»- -«-Zeilen. Diese Befehle werden 
einfach überlesen und ignoriert, da sie 
den Programmablauf nicht beeinflus¬ 
sen. 

Befehle ohne Parameter (wie END, 
POP oder CLR) werden einfach zu 
einem entsprechenden Unterpro¬ 
grammaufruf compiliert. 

Bei einem DATA-Befehl wird der Text 
mit Zeilennummer und Länge in einer 
Tabelle im Anschluß an das Programm 
eingetragen. Sie nimmt noch folgende 
Informationen auf: 

- eine weitere Tabelle mit konstanten 
Zahlen 

- konstanten Strings 

- die Anfangsadressen aller Pro¬ 
grammzeilen 

- den wahrend der Compilation benö¬ 
tigten Stapelspeicher (der 
6502-Stape! ist viel zu klein) 

Diese Informationen werden gegebe- 

nenfsdls auch im Speicher verschoben, 
wenn das zu compilierende Programm 
oder eine der Tabellen anwächst. Des¬ 
halb nimmt auch die Compilierungsge¬ 
schwindigkeit bei langen Programmen 
gegen Ende ab; vor allem wenn viele 
DATAs am Anfang des Programms ste¬ 
hen. Diese Verlangsamung betrifft 
lediglich die eigentliche Compilierung 
und nicht den Programmablauf. 

Alle Befehle, die Parameter erfordern, 
sind wesentlich schwieriger zu über¬ 
setzen. Bild 2 zeigt nur einen Befehl mit 
einem einzigen Parameter. 

Die Umwandlung des Befehls von 
Schritt 1 nach Schritt 2 hat der Interpre¬ 


ter schon erledigt. Der Compiler liest 
das Befehlstoken $03 für COLOR und 
verzweigt in die entsprechende Compi¬ 
lationsroutine. Diese ruft wiederum die 
Rouöne für die Übersetzung eines Aus¬ 
drucks auf, die eine Integerzahl zurück¬ 
liefern soll. Dann wird nur noch »STA 
$C8« angehängt, und damit ist die 
Compilierung des Befehls schon erle¬ 
digt. Beim Befehl GRAPHICS würde 
»JSR ©Graphics« angehängt werden. 
Der Klammeraffe {©) kennzeichnet 
übrigens eine RouHne in der Runtime 
Bibliothek. 

Ein großer Fortschritt wurde bis jetzt 
noch nicht verzeichnet. Zwar sind die 
Befehle jetzt prinzipiell compiliert. das 
ändert aber leider nichts daran, daß mit 
dem entsprechenden Parameter, wie in 
unserem Beispiel die 1, noch nichts 
passiert ist. 


Compilieren 
Zeile für Zeile 


Die dafür benötigte Routine gliedert 
sich in mehrere Abschnitte: 

- P-Code-Erzeugung 

- P-Code-Optimierung 

- Maschinencode-Erzeugung 
P-Code (Pseudo-Code) ähnelt der 

Maschinensprache eines hypotheti¬ 
schen (gedachten) Prozessors. Man¬ 
che Compiler erzeugen nur einen P- 
Code, der dann von einem kleinen Inter¬ 
preter ausgeführt wird. Die Abarbei¬ 
tungsgeschwindigkeit eines solchen 
Codes ist zwar schneller als ein her¬ 
kömmliches Basic-Programm, aller¬ 
dings von der Geschwindigkeit einer 
»richtigen« Maschinensprache noch 
weit entfernt. Aber platzsparender ist 
P-Code im Vergleich zu voll compilier- 
tem Basic. Echte Maschinensprache ist 
jedoch von keinem Compiler zu über¬ 
treffen. 

Bild 3 zeigt ein komplizierteres Bei¬ 
spiel. »03« entspricht wieder dem 
Token für COLOR, »46« steht für PEEK, 
»3A« für die offene Klammer, »2C« für 
die schließende Klammer, »35« steht 
für die Addition (-I-), »16« bedeutet Zei¬ 
lenende oder auch einen Doppelpunkt, 
der Basic-Befehle in einer Zeile trennt. 
Der Wert »OE« kennzeichnet schließlich 


noch eine Zahl in der internen Darstel¬ 
lung (entspricht sechs Byte). 

Das Token »03« ist in unserem Bei¬ 
spiel bereits identifiziert. Es beginnt 
jetzt der Test, in welcher Reihenfolge 
die Operationen ablaufen müssen. Der 
Interpreter hat dabei fast die gleichen 
Tests durchzuführen, und zwar jedes¬ 
mal, wenn er diese Zeile erreicht, Der 
Compiler übersetzt jede Zeile nur ein¬ 
mal bei der Compilierung. Dadurch lau¬ 
fen die Programme schneller ab. 

Bei der Übersetzung in P-Code 
bedient sich der Compiler einer Tabelle, 
in der die Prioritäten aller Operatoren 
vermerkt sind. Übrigens handelt es sich 
hierbei fast um die gleiche Tabelle, die 
auch der Interpreter benutzt. Daraus 
ergibt sich dann folgender P-Code In 
Bild 4 sind die einzelnen Werte lediglich 
in Kurzform dargestellt. Der Compiler 
betrachtet sie natürlich als Zahlen. 

Jetzt könnte theoretisch schon die 
Routine aufgerufen werden, die den 
Maschinencode erzeugt. Allerdings 
würden dann im compilierten Programm 
die gleichen Berechnungen ablaufen, 
die der Interpreter normalerweise auch 
durchführt. Schließlich steht jetzt viel 
Zeit zur Optimierung des P-Codes zur 
Verfügung, da die Programmzeilen nur 
ein einziges Mal in Maschinencode 
umgesetzt werden. 

Hier nochmals der P-Code: 

Zahl 41 02 00 00 00 00 
fp->intpeek int->fp push 
Zahl 40 01 00 00 00 00 
movepull add fp->int 

Im ersten Schritt faßt der Optimierer 
die Zahl »41 02 OO OO OO OO fp- > int« 
zusammen, indem er den Wert in die 
Integer-Darstellung umwandeit. Daraus 
entsteht: 

Izahl 200 peek int->fp push 
Zahl 40 01 00 00 00 00 
movepull add fp->iiit 

Anmerkung: Es gibt zwei Fp-Accus, 
$D4 bis $D9 und $EO bis $E5. Integer- 
zahlen stehen dabei im Prozessorregi¬ 
ster A und Y. Dabei enthält Y das höher¬ 
wertige und A das niederwertige Byte. 

Der Optimierer faßt jetzt »Izahl 200 
peek« zu »Ipeek 200« zusammen. 
Das erste Beispiel würde »LDA 
# <200:LDY # >200:JSR PEEK« als 
Code erzeugen und das zweite Beispiel 
»LDA 200:L0Y #0«. Jetzt haben wir 
also: 

Ipeek 200 int->fp push 
Zahl 40 0100 00 00 00 
movepull add fp->int 

Jetzt wird »push Zahl ... movepull 
add« zu »add# ...« zusammengefaßt. 
Daraus ergibt sich: 


1) COLOR 1 

;so siehfs aus 

2) 03 OE 40 Ol 00 00 00 00 

;so spetchert's der Interpreter 

3) A9 Ol 85 C8 

;das soll daraus werden (LDA #1:STA $C8) 

;$C8 = 2O0 ist die Speicherzelle, in der sowohl 
;Interpreter als auch Compiler die Zeichenfarbe 
;fijr Plot abtegen 


Bild 2. So wird der Befehl »COLOR« compiliert 


03 46 3A OE 41 02 00 00 00 00 2C 35 40 01 00 00 00 00 16 

Bild 3. So sieht der Basic-Befeht »COLOR PEEK(200)-l-1a in Token umgesetzt aus 
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TURBO-BASIC 


Ipeek 200 add 

# 40 01 00 00 00 00 fp->int 

Als nächstes bemerkt der Optimierer 
die Folge »int->fp Add# ... fp->int« 
und versucht diese Befehlsfolge zu ver¬ 
einfachen. So spart man sich später 
eine Umwandlung. Da die Zahl kleiner 
als 256 Ist, gelingt dies auch. 

Ipeek 200 ladd# 1 

Jetzt hat der Optimierer seine Arbeit 
geleistet. Anschließend wird richtiger 
Maschinencode erzeugt. 

Aus »ipeek 200« entsteht »LDA 
200:LDY #0«, 

»ladd # 1« wird zu »LDX # 1:JSR lADD« 
(dieser Unterprogrammaufruf ist nötig, 
da sonst auch ein Overflow stattfinden 
könnte; Integerwert größer als 65535!) 

Das war auch schon alles. An den 
Befehl COLOR wird noch »STA $C8« 
angehängt, Insgesamt ergibt sich also: 

LDA 200:LDY # 0:LDX # 1:JSR 
IADD:STA $08 

Ohne Optimierung würde wesentlich 
mehr Programmcode erzeugt werden, 
der noch dazu viel langsamer ist: 

LDA #< 2200 :LDY #>Z200:JSR 


LD0IA:JSR FPI?:JSR PEEK:JSR 
IFP:JSR PUSH 

LDA # <21;LDY # > ZltJSR 
MOTEPULL: JSR ADDiJSR FPI?:SIA $08 

Außerdem noch im Konstantenbe¬ 
reich: 

2200 .BYTE $4l,$02,$00,$00,$00, 
$00 

21 .BYTE $40,$01,$00,$00,$00, 
$00 

Durch Optimierung läßt sich also viel 
Programmcode sparen. Gegenüber 
einem echten Maschinencode sieht 
das Ergebnis allerdings immer noch 
recht umfangreich aus. In Maschinen¬ 
sprachewürde nämlich »INC $C8«, was 
nur 2 Byte benötigt, das gleiche bewir¬ 
ken. Hexadezimal $C8 entspricht dabei 
dem Dezimalwert 200. In unserem Bei¬ 
spiel codiert der Compiler den Basic- 
befehl COLOR 1 Jedoch optimal, näm¬ 
lich »LDA #1:STÄ $C8«. 


Optimal compiliert 


Allerdings kann der Compiler nur in 
den seltensten Fällen optimalen Code 
erzeugen. Schließlich erübrigt sich nur 
die Umwandlung von FP nach INT und 


umgekehrt und dies auch nur bei Ver¬ 
wendung von Konstanten. Bel Varia¬ 
blen ist diese Art der Optimierung nicht 
zulässig. In den meisten Fällen reicht 
schon die Einsparung einiger Bytes, 
weil zum Beispiel das Laden einer Varia¬ 
blen und die Umwandlung in einen statt 
zwei Integerwerte durch einen einzigen 
Unterprogrammaufruf erledigt wird. 

Auch wird nicht alles, was möglich 
wäre, optimiert. Zum Beispiel berechnet 
sich »A=10/3« nicht im voraus, obwohl 
es durchaus sinnvoll wäre. Aber solche 
Optimierungen kann der Programmie¬ 
rer gegebenenfalls selbst vorwegneh¬ 
men. Allerdings sind solche Fälle viel zu 
seiten, als daß sich dies hier lohnen 
würde. Je länger nämlich der Compiler, 
desto kürzer die entsprechenden 
Basic-Programme Es gibt jedoch 
einige Berechnungen, deren Optimie¬ 
rung sich besonders lohnt: »"2« erhält, 
eine eigene, schnelle Routine Im Com¬ 
piler benötigt »A=ß"2« die gleiche Zeit 
wie »A=B*B«. Es existiert ebenfalls 
eine schnelle Exponential-Routine, die 
bereits im Mathematik-Teil der Runtime- 
Bibtiothek vorhanden ist. So oder ähn¬ 
lich werden alle Befehle mit Parametern 
behandelt. Sind mehrere Parameter 
vorhanden, werden diese natürlich zwi¬ 
schengespeichert. 

Ein weiterer lohnenswerter Befehl ist 
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TURBO-BASIC 


Zahl 41 02 00 OO 00 00 

dse 200 

fp->int peek int-> 1p 

der PEEK-Befehl benötigt einen Integer als Adresse, 
deshalb muß die 200 zuerst umgewandelt werden. 

Dann folgt der eigentliche PEEK-Belehl und dann 
die Umwandlung des Ergebnisses in eine 

Floaüng-Point-Zahl (fp). Diese 

Umwandlungen muß der Interpreter auch immer 
^Jurchtühren. 

push 

retten des Ergebnisses auf den Rechen Stapel 

Zahl 40 01 00 00 00 00 

Zahl 1 

Movepull 

Schiebt die Zahl 1 aus dem FP-Accu 1 in den 

FP'Accu 2 und holt das Ergebnis des PEEKs 
in den FP-Accu 1 

Add 

die Addition 

fp->int 

dies wird von der Compilatlonsroutine für Color 
angehängt, es wird ja ein Integer benötigt 


Bild 4. Der P-Code, der sich aus »COLOR PEEK<200)+1« ergibt 


der POKE-Befehl. Beispielsweise wird 
»POKE 16,64« durch »LDA #64;STA 
16« übersetzt. 

Beim PRINT-Befehl sind noch die 
Kommata zu beachten. Auch INPUT, 
READ, GET und IjOCATE beinhalten 
noch einige Probleme. Eine ausführli¬ 
che Erläuterung würde den Rahmen 
dieses Artikels jedoch sprengen. 

Gesondert zu behandeln sind alle 
Befehle, die den linearen Programm¬ 
ablauf beeinflussen. Der GOTO-Befehl 
läßt sich vergleichsweise einfach über¬ 
setzen. Zuerst wird die Routine aufge¬ 
rufen, die einen Integer-Ausdruck über¬ 
setzt und optimiert (wie oben); aller¬ 
dings generiert sie ihn noch nicht in den 
endgültigen Maschinencode. Zunächst 
wird nur der P-Code erzeugt. Dann wird 
anhand des P-Codes überprüft, ob eine 
Zahl folgt. Wenn ja, wird ein JMP-Befehl 
compiliert. Zunächst nur »07 Zeile«, 
woraus sich nach Paß 2 »4C Adresse« 
ergibt. Wenn nein, wird die Routine für 
die Erzeugung von Maschinencode 
aufgerufen und »JSR GOTOX« ange¬ 
hängt. Bei einem berechneten GOSUB 
wird beispielsweise entweder »JSR 
GOSUBX« oder vor dem »JMP-($07)«- 
Befehl derGOTO-Anweisung ein Unter¬ 
programmaufruf compiliert. Dieser ent¬ 
hält dann, auf dem Basic-StacK die um 
drei Werte erhöhte Rücksprungadres¬ 
se des Befehls. Es wird aber nicht ein¬ 
fach ein JSR compiliert, da sonst die 
Anzahl der Unterprograanmebenen 
durch den zu kleinen 6502-Stack 
begrenzt wäre Außerdem müssen die 
Parameter für die FOR-NEXT-Schieifen 
ebenfalls auf diesem Stapel abgelegt 
werden. Sie belegen jeweils 16 Byte, so 
daß sehr schnell ein Overflow des 
6502-Stack drohen würde Dies 
könnte katastrophale Folgen haben und 
die Kompatibilität zum Interpreter-Basic 
stark einschränken. Zumindest ist die 
untere Hälfte der Seite 1 frei, und es 
gibt Programme, die mehr als 10 ge¬ 
schachtelte Schleifen verwenden. Der 
Zeitverlust durch diesen simulierten 
Stack hält sich jedoch in Grenzen. 

Einen ähnlichen Stack verwendet der 


Compiler auch zur Übersetzung von 
DO-LOOP, REPEAT-UNTIL. WHILE- 
WEND und FOR-NEXT-Schleifen sowie 
des EXIT-Befehls. 

Bei DO wird die aktuelle Adresse auf 
diesem Stapel abgelegt. Sie erhält 
außerdem noch die DO-Befehlsken- 
nung. Bei Übersetzung des zugehöri¬ 
gen LOOP wird die Kennung daraufhin 
überprüft, ob ein DO fehlt und dann ein 
JMP-Befehl auf die zuvor festgestellte 
Adresse compiliert. Sollte zwischen DO 
und LOOP ein EXIT gestanden haben, 
so hat dieser Befehl seine eigene Ken¬ 
nung auf dem Stack hinterlassen und 
einen JMP-Befehl mit »Dummy«- 
Adresse erzeugt. LOOP ersetzt diese 
Adresse durch die auf den eigenen 
JMP-Befehl folgende 


Geschwindigkeit 
ist Trumpf 

Bei REPEAT ist der Vorgang ähnlich 
wie bei DO. Es unterscheidet sich ledig¬ 
lich die Kennung. Wenn UNTIL auf eine 
REPEAT-Anweisung folgt, wird zuerst 
der folgende Ausdruck übersetzt. Erst 
dann wird ein bedingter Sprung ange¬ 
hängt. Da der 6502 nur relativ kurze, 
bedingte Sprünge kennt, wird mit »BNE 
*-+-5:JMP ad« gearbeitet. Natürlich 
muß auch UNTIL eventuelle EXIT- 
Befehle berücksichtigen. 

WHILE-WEND entspricht dem eben 
Besprochenen, nur steht hier die 
Bedingung am Schieifenanfang. 

Bei FOR-NEXT-Schleifen ist noch zu 
beachten, daß zusätzlich der Basic- 
Stack benutzt wird. Deshalb wird auto¬ 
matisch ein POP-Befehl in den EXIT- 
Befehl eingeschlossen. 

Damit ist die Wirkungsweise des 
Compilers erklärt. Vielleicht ist Ihnen 
aber noch nicht ganz klar, wie der Inter¬ 
preter und der Compiler die Reihen¬ 
folge der Berechnungen feststellen. 
Der Interpreter führt die Berechnungen 
aus, der Compiler erzeugt einen P- 
Code. Trotzdem funktionieren beide 
nach dem gleichen Prinzip. Zur Zwi¬ 


schenspeicherung der Operatoren 
dient jeweils ein Stack (Stapel). Dazu 
ein einfaches Beispiel; 

8*Siti(A)+l6 

Der Compiler liest die Ziffer 8. Als 
Zahl wird sie sofort compiliert. (Der 
Interpreter würde sie auf dem Zahlen¬ 
stapel ablegen.) Dann wird das Token 
für Multiplikation (’) mit der Priorität 5 
gelesen. Da der Stapel für Operatoren 
noch leer ist (Priorität 0), wird das Token 
dort abgelegt. Als nächstes folgt SIN 
mit der höchstmöglichen Priorität (9). 
Weil diese größer ist als die auf dem Sta¬ 
pel (5), wird auch SIN auf den Stapel 
gelegt. Dann folgt die geöffnete Klam¬ 
mer. Als Spezialfunktion ruft die Klam¬ 
mer dieselbe Routine noch einmal, 
allerdings rekursiv auf. Es wird also der 
Wert in Klammern entsprechend über¬ 
setzt oder berechnet. Dann kommt die 
Variable A an die Reihe. Variablen wer¬ 
den, genauso wie Zahlen, sofort compi¬ 
liert. Dann schließt eJs Endekennzei¬ 
chen die Klammer ab. Weiter geht es mit 
der ursprünglichen Übersetzung. Es 
folgt nun das Token für Addition {-!-), 
dessen Priorität (4) kleiner als die auf 
dem Stapel ist. Deshalb wird jetzt der 
SIN-Befehl compiliert. Anschließend 
wird noch die vorliegende Priorität mit 
der des »* «-Tokens (5) verglichen. Da 
sie wieder kleiner ist, wird jetzt die Mul¬ 
tiplikation compiliert. 

Der leere Stack hat die Priorität 0, 
also wird das Token für Addition auf dem 
Stack abgelegt. Dann folgt die Zahl 16 
und schließlich das Endekennzeichen 
mit der Priorität 0. Der Stapel ist 
anschließend leer, die Addition wird 
compiliert, und der Vorgang ist been¬ 
det. Der entstandene P-Code lautet 
»Zahl 8 Var A Sin Mult Zahl 16 Add«. 

So einfach wie hier beschrieben, ist 
das Compilieren von Basic-Program- 
men jedoch nicht. Es sollte an dieser 
Stelle vielmehr gezeigt werden, wie der 
Turbo-Compiler prinzipiell funktioniert. 
Sollten alte Vorgänge beim Compilieren 
beschrieben werden, würde dies ein 
Buch füllen. Noch ein Tip: Das 
Standard-Atari-Basic ist wegen eines 
Betriebssystem-Fehlers nicht in der 
Lage, »A=NOT NOT A« zu berechnen. 
Dies hängt mit der Stapelverarbeitung 
zusammen. Probieren Sie diese Be¬ 
fehlsfolge doch einfach einmal auf 
Ihrem Atari 800XL aus. Aufgrund der 
Syntaxkontroile Ist der Befehl nicht 
zulässig. Die alten Atari-Computer rea¬ 
gierten auf »A=NOT NOT A« mit einem 
Systemabsturz. Geben Sie die Pro¬ 
grammzeile doch einfach einmal unter 
Turbo-Basic-XL ein. Sie werden sehen, 
daß auch solche komplexen, logischen 
Verknüpfungen ordnungsgemäß funk¬ 
tionieren. (Frank Ostrowski/wb) 
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TURBO-BASiC 


Der Unterschied liegt 
im Detail 


Läuft ihr Programm nicht unter 
Turbo-Basic XL? Einige Ände¬ 
rungen lassen auch Ihr norma¬ 
les Afari-Basic-Progiamm zum 
Renner werden. 

7 W urbo-Basic XL ist wesentlich 
schneller als das eingebaute 
Atari-Basic (siehe hierzu auch den 
Geschwindigkeitsvergleich zwischen 
den derzeit erhätlichen Basic-Versio- 
nen für den Atari 800XL und 130XE 
in diesem Sonderheft). Die hohe 
Geschwindigkeit ist in den meisten 
Anwendungsfällen sicher erwünscht. 
Allerdings ergeben sich daraus auch 
manchmal Probleme. Oft sind nämlich in 
Atari-Basic geschriebene Spielpro¬ 
gramme unter Turbo-Basic XL kaum 
mehr spielbar, da die enorme 
Geschwindigkeit dem Spieler nicht 
mehr genügend Reaktionszeit erlaubt. 
Abhilfe; Verzögerungen in Form von 
Warteschleifen einbauen oder den spe¬ 
ziellen PAUSE-Befehl verwenden. Oder 
bauen Sie doch einfach zusätzliche 
Geräusch-Effekte ein. 

In Atari-Basic wird eine kurze Verzö¬ 
gerung auch mit »0=1'^« realisiert, in 
Turbo-Basic XL wird diese Berechnung 
aber wesentlich schneller als in Atari- 
Basic ausgeführt. Potenzierung mit 
ganzzahligem Exponenten (<100) 
wird durch wiederholte Multiplikation 
berechnet, und nicht, wie in Atari-Basic, 
nach der Formel »a'b=exp(b*log(a))«. 
Am einfachsten ist es, »Q=1'1« durch 
»PAUSE 9« zu ersetzen. Dies nimmt 
etwa die gleiche Zeit in Anspruch und 
spart sogar etwas Speicherplatz. 

Verzögerungsschleifen mit FOR.. 
NEXT. sind in Atari-Basic sehr langsam 
- besonders wenn sie sich am Pro¬ 
grammende befinden. Am besten 
ersetzen Sie solche Schleifen auch 
durch entsprechende PAUSE-Befehle. 


Verbotene Befehle 


Turbo-Basic XL beinhaltet wesentlich 
mehr Befehle als Atari-Basic. Deshalb 
können Probleme mit Variablennamen 
auftreten. Namen wie ERR, HEX$ oder 
DEL(ta) sind nämlich in Atari-Basic 
erlaubt, in Turbo-Basic XL jedoch nicht 
(es handelt sich hierbei um reservierte 
Worte). Beim Laden und Starten eines 
Atari-Basic-Programms macht sich 
dieser Unterschied noch nicht bemerk¬ 
bar. Erst wenn Sie versuchen, ein Pro¬ 
gramm mit diesen Variabiennamen zu 


editieren, ergeben sich Fehlermeldun¬ 
gen oder falsch übersetzte Programm¬ 
zeilen. Bei »LET ERR = 100« wird die 
Variable ERR benutzt, bei »A=ERR« 
Jedoch die Turbo-Basic XL-Funktion 
»ERR«. Dann bleibt als einzige Alterna¬ 
tive. die Variabiennamen manuell zu 
ändern. Dabei hilft übrigens der DUMP- 
Befehl, mit dem man sich die im Pro¬ 
gramm verwendeten Variablen auflisten 
lassen kann. 

Nach dem Laden des betreffenden 
Programms mit LOAD geben Sie ein¬ 
fach DUMP ein, und alle Variablen wer¬ 
den auf dem Bildschirm ausgegeben. 
Falls Sie einen Drucker besitzen, erfolgt 
die Ausgabe nach »DUMP "P:"« auf 
dem Drucker. Schreiben Sie sich dann 
alle Variablennamen auf, die geändert 
werden müssen. Dabei bleibt es Ihnen 
nicht erspart, jede einzelne Progrgmtim- 
zeile zu kontrollieren und gegebenen¬ 
falls zu ändern. Speichern Sie das 
Programm anschließend mit »LIST 
"D.xxx.xxx"« auf Diskette, geben Sie 
NEW und dann »ENTER "Dixxx-xxx"« 
ein. Diese Befehlsfolge bewirkt, daß die 
Variabfennamentabelle neu geschrie¬ 
ben wird. Nicht benutzte Variablen bele¬ 
gen dann auch keinen Speicherplatz 
mehr. Mit DUMP können Sie nochmeds 
kontrollieren, ob Sie irgendwelche 
Variablen übersehen haben. Wenn Sie 
alle Korrekturen vorgenommen haben, 
sichern Sie das Programm mit SAVE auf 
Diskette und führen Sie einen Probelauf 
durch. 

Turbo-Basic XL liegt nicht im ROM 
vor, sondern wird von Diskette geladen. 
Da es noch wesentlich umfangreicher 
als Atari-Basic ist (etwa 18 KByte statt 
8 KByte), wurde ein Großteil des Inter¬ 
preters unter den OS-ROMs versteckt 
(12 KByte). Die restlichen 6 KByte 
befinden sich an der Speicherunter¬ 
grenze direkt über dem DOS. 

Ursprünglich wurde Turbo-Basic XL 
auf einem Atari 400 mit 48 KByte RAM 
geschrieben. Bei dieser Version befand 
sich der gesamte Interpreter über dem 
DOS. Allerdings blieben so nur etwa 20 
KByte für Basic-Programme übrig. Der 
800XL besitzt dagegen insgesamt 64 
KByte RAM, die Turbo-Basic XL auch 
voll nutzt. Von den zusätzlichen 14 
KByte werden aber noch 2 KByte von 
Kopien der beiden ROM-Zeichengene- 
ratoren belegt. Eine Maßnahme; die 
Bildstörungen bei Textdarstellung - 
sobald das ROM abgeschaltet wird - 
verhindert. Turbo-Basic XL ist nun aber 
viel zu umfangreich, um in die verblei¬ 


benden 12 KByte hineinzupassen. 
Deshalb ließ es sich nicht umgehen, 
auch einige Programmteile in Berei¬ 
chen abzulegen, die normalerweise für 
Basic-Programme reserviert sind. Auf 
diese Art und Weise lassen sich Unter¬ 
programme der ROMS benutzen. Wei¬ 
terhin erlaubt dies noch die Durchfüh¬ 
rung der Interrupts. 

Der im Basic-Bereich untergebrachte 
Teil von Turbo-Basic XL belegt die 
Adressen von $2080 bis $3629 (hexa¬ 
dezimal). Es handelt sich also um den 
Bereich direkt oberhalb von DOS 2.5 
bei fünf- installierten Diskettenlaufwer¬ 
ken (01: bis D4: und der RAM-Disk D8: 
auf dem 130 XE) und 7 Filepuffern. Ein 
POKE in diesen Bereich dürfte meist 
zum Absturz des Computers führen, 
oder - was weitaus schlimmer wäre - zu 
einem Fehlverhalten des Interpreters. 
Denn daraus können sich sogar falsche 
Rechenergebnisse ableiten. 

Während der Ausführung der Befehle 
POKE, DPOKE, MOVE und -MOVE 
wird jeweils der ROM-Bereich einge¬ 
schaltet. So können diese Befehle im 
»ROM«-Teil von Turbo-Basic XL keinen 
Schaden anrichten. Außerdem ist der 
ROM-Bereich noch bei den Befehlen 
PEEK, DPEEK, allen l/O-Befehlen wie 
PRINT, INPUT, BGET, BPUT et& akti¬ 
viert, jedoch nicht bei PAINT, sowie der 
Ausführung einiger Arithmetik-Routi¬ 
nen (es werden einige Werte aus den 
Floating-Point-Routinen sowie die 
STR$- und VAL-Routinen verwendet). 


Vorsicht, Interrupt! 


Tritt ein Interrupt auf, während die 
ROMS eingeschaltet sind, wird er wie 
gewohnt ausgeführt. Wenn die ROMs 
allerdings ausgeschaltet sind, ver¬ 
zweigt der Interrupt zuerst in den 
unteren RAM-Teil des Interpretera Dort 
werden zuerst die ROMs eingeschaltet. 
Nachdem ein Interrupt für die ROM- 
Routinen simuliert wird, werden die 
ROMs wieder stillgelegt. Aus diesem 
Grund dauern die Interrupt-Routinen 
einige Mikrosekunden länger. Dies gilt 
allerdings nicht für den Display-List- 
Interrupt (DLI), da dieser parallel zum 
Bildaufbau ablaufen muß. Der Interrupt 
wird hier schon vom Interpreter er¬ 
kannt, so daß er sofort ausgeführt wer¬ 
den kann. Er muß also auch bei abge- 
schaiteten ROMs ablaufen. 

Der Speicherplatz für Basic-Pro¬ 
gramme, Daten und den Stack reicht 
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unter Atari-Basic bis $AOOO (40960), 
unter Turbo-Basic XL aber bis $C000 
(49152). Das Basic-ROM wird hierbei 
nämlich nicht benutzt und kann deshalb 
immer abgeschaltet bleiben. Reine 
Basic-Programme, also ohne USR- 
Aufrufe und POKEs, sind von dieser 
Verschiebung nicht betroffen. Kritisch 
sind POKEs und USR-Aufrufe in Adres¬ 
sen im Bereich zwischen 30000 und 
40960. Wenn Sie also ein Programm 
verwenden, das einen Befehl wie bei¬ 
spielsweise »POKE 39994,4« enthält, 
dürfte das Programm unter Turbo-Basic 
XL nur mit einigen Anpassungen laufen. 
Dieser POKE-Befehl verändert übri¬ 
gens die Display-List. Hierbei handelt 
es sich um die Maschinensprache des 
Videoprozessors, der Antic genannt 
wird. 

Da es auch noch den 600 XL mit 16 
KByte und den Atari 400 und 800 mit 
16,32 und 48 KByte RAM gibt, existie¬ 
ren auch Programme, die sich an ver¬ 
schiedene Speichermengen anpas¬ 
sen. Dazu benutzt das OS (Operating 
System) des Atari verschiedene Pointer 
(Zeiger), auf die auch Basic zurück¬ 
greift. Der wichtigste davon ist RAM- 
TOP, also die Speicherzelle 106 {$6A}. 


Sie enthält das MSB (Most Significant 
Byte) der ersten nicht mehr benutzba¬ 
ren Speicherzellen für Programme Das 
heißt, nach »PEEK(106)*256« erhält 
man einen Wert, der um eins höher ist 
als die höchste RAM-Adresse. In Atari- 
Basic ergibt »PEEK(106)« also 160 
(•$ AO), in Turbo-Basic XL entsprechend 
192 ($00). Durch »POKE 106,PEEK 
{106)-16« lassen sich so 4096 Bytes 
(16*256) vor dem Zugriff durch das OS 
und Basic schützen. 

Anschließend ist noch ein GRA- 
PHICS-Befehl nötig, um die anderen 
Pointer anzupassen und um den Bild¬ 
schirmspeicher zu verschieben. Durch 
»POKE 106,160;GRAPHICS 0« am 
Anfang eines Programms wird also die 
Atari-Basic-Speicheranordnung simu¬ 
liert. Dann bleiben allerdings wieder 8 
KByte weniger Speicherplatz für das 
Basic-Programm übrig. Dafür beginnt 
aber der Bildschirmspeicher schon ab 
Adresse 40000 statt 48192. Für kurze 
Programme reicht diese Minimalanpas¬ 
sung vollkommen aus. Sollte ein Pro¬ 
gramm aber länger sein, wie zum Bei¬ 
spiel »Magic-Painter« (Listing des 
Monats, Happy-Computer, Ausgabe 
3/85), gibt es zwei Möglichkeiten: 


1) Alte POKE- und USR-Adressen um 
8192 erhöhen. Dies klappt aber nur bei 
retokatiblen, das heißt, bei verschieb¬ 
baren Daten und Maschinenprogram¬ 
men. Leidersind diese recht selten; und 
wenn sie autreten, dann hat der Pro¬ 
grammierer das Maschinenprogramm 
meist in einem String untergebracht 
(das Kennzeichen dafür ist stets; 
»USR(ADR(X$),...))«. Dieser Aufruf 
bereitet aber keine Schwierigkeiten. 
Sie können natürlich die Maschinenpro¬ 
gramme relozieren, also an die andere 
Adreßlage anpassen. Dies erfordert 
aber Assemblerkenntnisse und viel 
Zeit- und Arbeitsaufwand. Einfacher ist 
es, wenn der Quelltext des Programms 
zur Verfügung steht. 


Verbotene Adressen 


Auf Probleme stößt man auch bei den 
Daten für Player/Missile-Grafiken oder 
bei veränderten Zeichensätzen. Hier 
sind die POKE-Befehle, die deren 
Adressen dem Operating System oder 
der Hardware mitteilen, anzupassen. 
Dabei handelt es sich meist um POKEs 
auf die Adressen 756, 54279, 561 
und 89 (und 513 etc). Der gePOKEte 
Wert ist dann jeweils um 32 zu erhöhen. 
Manchmal werden diese Adressen 
auch innerhalb von Maschinenpro¬ 
grammen angesprochen. 

Sie sehen also, daß diese Anpassung 
ohne genaue Kenntnisse des Pro¬ 
gramms und der Hardware fast unmög¬ 
lich ist. 

2) Das Programm um 8 KByte kürzen. 
Dies ist bei großzügig (gut) kommentier¬ 
ten Programmen manchmal allein durch 
Streichen der REM-Zeilen zu errei¬ 
chen. Oft hilft auch das Auslagern von 
DATAs in ein Vorprogramm, das in einer 
READ-Schleife Daten einPOKEt, und 
dann das gekürzte Hauptprogramm mit 
»Run "Dixxx.xxx"« startet. Schneller 
ist aber ein entsprechender BLOAD- 
oder BGET-Befehl, wenn die Daten im 
entsprechenden Format auf Diskette 
vorliegen. Dies spart übrigens auch 
wertvollen Platz auf der Diskette. Wei¬ 
terhin läßt sich auch durch geschickten 
Einsatz der erweiterten Turbo-Basic XL- 
Befehle viel Speicherplatz sparen. 

Durch einen kombinierten Einsatz 
dieser Mittel wurde auch das Programm 
»Magic-Painter« angepaßt. Besonders 
hilfreich waren dabei die Befehle 
BLOAD, CIRCLE und TEXT. Noch ein 
Tip: Wäre »Magic-Painter« in Turbo- 
Basic XL geschrieben worden, könnte 
es ohne weiteres in der höchstauflö- 
senden Farbgrafikstufe 15+16 arbei¬ 
ten, statt in Grafikstufe 7+16. Schließ¬ 
lich stehen unter Turbo-Basic XL 
8 KByte RAM mehr zur Verfügung. 

(Frank Ostrowski/wb) 


Adresse Alari-Basic 

Adresse Turbo-Basic XL 

FPFP 


FFFF 

V 


D800 

DOOO 

OS-ROM 

D800 

DOOO 

OS-ROM / Interpreter 


l/O-Chips 

I/O-Chips 





cooo 

OS-ROM 

cooo 

OS-ROM / interpreter 



Grafik-RAM 




AOOO 

Basic-ROM 


---- — -- 


Grafik-RAM 


Basic-Stack 





Basic-Stack 


Arrays 



- — 


Programm 



^rays 

3629 







2080 

Programm 

2080 

Interpreter 





0700 

0000 

DOS 2.5 

0700 

0000 

DOS 2.5 


OS-Variabien 

OS-Variabfen 






Die Speicheraufteiiung von Turbo-Basic XL im Vergleich zum normalen Atari-BasiCL 
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Auf die Taste, 
fertig, ios! 


Ü r m Aussagen über die Geschwin¬ 
digkeit eines Computers oder 
einer Programmiersprache 
machen zu können, bedient man sich 
üblicherweise sogenannter Bench¬ 
mark-Programme. Hierbei handelt es 
sich um kurze Algorithmen, die mög¬ 
lichst ohne Änderung auf allen zu 
testenden Versionen laufen sollten, ln 
diesem Fall wurden alle Benchmarks in 
Standard-Atari-Basic geschrieben und, 
soweit dies durchführbar war, direkt in 
die anderen Sprachen übernommen. 
Neun unterschiedliche Benchmarks 


Wie schnell Turbo-Basic-XL und 
der TurbO'BasiC'Compiler wirk¬ 
lich sind, soll ein Vergleich mit 
anderen Programmiersprachen 
und Compilern zeigen. 

werden erweisen, wie schnell Turbo- 
Basic XL und der Turbo-Compiler im 
Vergleich mit anderen Programmier¬ 
sprachen für den Atari sind. Zur Zeit¬ 
messung wurden die Speicherstellen 
19 und 20 herangezogen. Die Spei¬ 
cherstelle 20 wird durch einen Inter¬ 


ruptimpuls 50mal pro Sekunde inkre- 
mentiert. 

Ist der Wert 256 erreicht, erhöht sich 
der Wert in Speicherstelle 19 um 1 und 
Adresse 20 wird auf 0 zurückgesetzt. 
Liest man diesen Zwei-Byte-Wert und 
teilt ihn durch den Faktor 50, so erhält 
man eine ZeitEungabe in Sekunden. Um 
die Unterschiede der Rechenzeiten 
deutlicher zu machen, wird jeder 
Benchmark lOOOmal durchlaufen. 

Als erste Vergleichssprache diente 
natürlich das normale Atari-Basic Wie 
man der Tabelle entnehmen kann, ist 


10 DIM M<5)tAS(1000) 

<CC> 

610 

K==0 

<FT> 

20 7 "ATARI^BENCHMARKS“ 

<CH> 

620 

K=K+1 

<RH> 

99 REM Bench 1 

<PA> 

630 

A=K/2*3+4-5 

<ZK> 

100 

POKE 20,0:POKE 19,0 

<XGl> 

640 

SOBUB 2000 

<RG> 

110 

FDR 1=1 TO 1000 

<S9> 

650 

FOR L=t TO 5 

<FD> 

120 

NEXT I 

<FV> 

660 

NEXT L 

<HM> 

130 

T1 =FEEK C 20) 1-PEEK C 19) ^^256 

<CE> 

670 

IF K<1000 THEN 620 

<TU> 

190 

? "Tl^=*“';Tl/50 

<GZ> 

680 

T6=PEEK(20)+PEEK(19)*256 

<DX> 

199 

REM ßench 2 

<OZ> 

690 

? "T6*=^";T6/50 

<LZ > 

200 

POKE 20,0:POKE 19,0 

<XR.> 

699 

REM **■* Bench 7 *** 

<sv> 

210 

K=0 

<FF> 

700 

POKE 20,0:POKE 19,0 

<X14> 

220 

K=K+1 

<RD> 

710 

K=0 

<FÜ> 

230 

IF K<1000 THEN 220 

<QG> 

720 

K=K+1 

<RX> 

240 

T2=PEEK C20> +PEEK <19)*256 

<CN> 

730 

A=K/2*3-t'4-5 

<ZL> 

290 

7 "T2-=^";T2/50 

<HZ> 

740 

60SUB 2000 

<RH> ’ 

299 

REM *** Bench 3 *** 

<PT> 

750 

FOR L=1 TO 5 

<PE> 

300 

POKE 20,0:POKE 19,0 

<XB> 

75S 

M(L)-A 


310 

K=0 

<FQ> 

760 

NEXT L 

<HN> 

320 

K=K+1 

<RE> 

770 

IF K<1000 THEN 720 

UF' c'' 

330 

A^K/K*K+K-K 

<QH> 

780 

T7=PEEK(20)+PEEK(19)*256 

<EE> 

340 

IF K<1000 THEN 320 

<RD> 

790 

7 '»T7^=^";T7/50 

< M7 > 

350 

T3=PEEK C20> +PEEK < 19)*256 

<CW.> 

799 

REM *** Bench 8 *** 


390 

7 "T3*=*":T3/50 

<I2> 

B00 

POKE 20,8:POKE 19,0 

< X X > 

399 

REM *** Bench 4 *** 

<QN> 

810 

K=0 

:F9> 

400 

POKE 20,0:POKE 19,0 

<XT> 

S20 

K=K+1 

<RJ> 

410 

K=0 

<FR> 

830 

A^K'^2 

<F0> 

420 

K=K+1 

<RF> 

840 

B=LG6CK> 

<WU> 

430 

A=K/2*3+4-5 

<ZI> 

850 

C=S1N<K> 

<ZN> 

440 

IF K<100O THEN 420 

<RY> 

860 

IF K<1000 THEN 820 

<VI > 

450 

T4=PEEK C20> +PEEK<19)*256 

<DD> 

870 

TS=FE£K(20)+PEEK(19)*256 

<EJ> 

490 

? '‘T4*=^"5T4/50 

<J2> 

390 

7 ”Te*=*";T8/50 

<NZ> 

499 

R£rt *** Bench 5 *** 

<RH> 

899 

REM ***BENCH 9 *** 

<Ke> 

500 

POKE 20,0:POKE 19,0 

<XU> 

900 

POKE 20,0:POKE 19,0 

<XY> 

510 

K=0 

<FS> 

910 

FÜR 1=^1 TO 1000 

<HD> 

520 

K=K+1 

<Re> 

920 

CI ,I) = ''A" 

<WZ> 

530 

A=K/2*3+4-5 

<ZJ> 

930 

NEXT I 

<GF> 

540 

0OSÜB 2000 

<RF> 

940 

T9=PEEK C 20 > +FEEK(19)*256 

<EK> 

550 

IF K<1000 THEN 52Ö 

<SV> 

950 

7 •■T9*=-^”;T9/50 

<0R> 

560 

T5=PEEK(20> +PEEK C19)*256 

<DM> 

1000 TS=Tl+T2+T3+T4+T5+T6-i-T7+TS+T9 

<MU> 

590 

7 ■■T5^=*";T5/50 

<KZ> 

1010 7 :7 TB/50 

<HA> 

599 

REM *** Bench 6 *** 

<B&> 

1020 END 

<PV > 

600 

POKE 20,0:POKE 19,0 

<XV> 

2008 RETURN 

<GÜ> 



üstiRg zu »Benchmarks« 
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0C90? A5 

DS 

E5 

E4 

05 

DS 

AS 

D7<:F4> 

0F80:A6 

FO 

F0 

11 

EE 

01 

03 

BO<D3> 

1270:BD 

CD 

33 

65 

04 

85 

04 

BO<6A> 

0C98:i:5 

E3 

8S 

07 

A5 

D6 

ES 

E2<ZA> 

0FSB!09 

DE 

95 

EZ 

CA 

10 

F8 

CE<E0> 

1278:07 

33 

65 

D5 

SS 

05 

93 

29<90> 

0CA0= Q5 

06 

A5 

05 

E5 

El 

85 

D5<5B> 

0F9O:Z1 

03 

4C 

00 

28 

18 

60 

3B<07> 

12S0=F0 

FZ 

12 

4A 

4A 

4A 

AA 

A5<EB> 

0CA8:B0 

27 

AS 

04 

49 

80 

85 

D4<7B> 

0F98:60 

A9 

04 

24 

04 

10 

06 

A9<;67> 

1208:04 

70 

B9 

33 

83 

04 

AS 

DS<CO> 

0Cß0s38 

98 

ES 

D9 

85 

09 

98 

E5<92> 

0FA0502 

00 

02 

A9 

01 

ÖS 

F0 

A5<2D> 

1290:70 

BA 

33 

85 

DS 

60 

cz 

07<43> 

0CB8= DB 

05 

DG 

98 

E5 

07 

85 

07<B6> 

0FAS:04 

29 

7F 

85 

04 

A6 

F8 

&D<FB> 

1298:B0 

FB 

AS 

07 

29 

F0 

4A 

85<77> 

0CC0:9S 

ES 

D6 

85 

06 

90 

E5 

D5<94> 

ZFB0:36 

31 

85 

EZ 

80 

37 

31 

85<6E> 

12A0:D4 

4A 

4A 

65 

04 

85 

04 

A5<9S> 

0CCBi05 

05 

4C 

B8 

20 

A6 

OA 

D0<D1> 

0FBa:El 

ED 

38 

31 

85 

E2 

BO 

39<2Ö> 

12A8:D7 

29 

0F 

A6 

08 

E0 

50 

65<D2> 

0CD0= 02 

A2 

0Z 

DS 

A4 

04 

F0 

6D<99> 

0FC0=31 

B5 

E3 

BD 

3A 

31 

SS 

E4<44> 

12BZ:04 

S5 

04 

B9 

AD 

33 

65 

D4<B2> 

0CD8!A5 

05 

00 

5C 

SB 

A5 

06 

D0<CE> 

0FC8:80 

3B 

31 

05 

£5 

20 

00 

28<52> 

12BS:S5 

04 

B9 

B4 

33 

65 

05 

85<C0> 

0CE:0!47 

08 

A3 

07 

DZ 

30 

88 

A5<3E> 

0FD0:BO 

C5 

AS 

04 

29 

7F 

38 

E9<A6> 

12C0:D5 

A4 

06 

D0 

A7 

60 

00 

10<FE> 

0CES:08 

DZ 

lE 

88 

A5 

09 

00 

0aC7C> 

0RD8:40 

30 

24 

C9 

04 

10 

88 

AA<2B> 

12C8:20 

30 

40 

50 

60 

00 

27 

4E<6D> 

0CF0:a9 

8A 

F0 

51 

85 

05 

DZ 

40<S1> 

0FE0:BS 

DS 

85 

Fl 

29 

IZ 

F0 

02<B9> 

1200:75 

9C 

G3 

EA 

ES 

03 

D0 

07<Z0> 

0CFS:B5 

05 

86 

06 

A9 

00 

es 

D9<S0> 

0FEa:A9 

02 

10 

65 

Fl 

29 

03 

65<3B> 

12D8:08 

ze 

A0 

0F 

SB 

13 

70 

17<FS> 

OD00:B5 

00 

85 

07 

F0 

32 

85 

D5<F7> 

0FF0;F0 

B5 

F0 

66 

Fl 

A9 

m 

95<90> 

12E0:58 

IB 

40 

IF 

28 

23 

00 

64<12> 

0DO8:A5 

09 

85 

D6 

86 

07 

A9 

00<1A> 

0FF8:OS 

CA 

10 

FB 

20 

BB 

20 

46<65> 

12E8:CS 

2C 

9Z 

F4 

58 

EC 

20 

04<22> 

0D103B5 

09 

B5 

DB 

F0 

22 

05 

D5<37> 

1000:F0 

90 

09 

20 

9C 

2E 

20 

BB<FZ> 

12F0:Z0 

0O 

00 

01 

01 

01 

02 

02<36> 

0D18:A5 

D0 

85 

06 

A5 

D9 

SS 

D7<19> 

1008:2F 

20 

97 

2C 

20 

04 

2£ 

20<09> 

12F8:03 

03 

4C 

2B 

E5 

20 

lE 

F4<20> 1 

0D20:86 

D8 

A9 

00 

B5 

09 

FZ 

10<09> 

1010:9B 

26 

B0 

83 

A9 

06 

AZ 

1S<3E> 

130Z=20 

05 

ES 

B5 

A2 

S4 

A3 

05<D5> 

0D28i: Q5 

05 

AS 

07 

35 

06 

AS 

DS<9C> 

1010:AZ 

31 

20 

31 

2E 

20 

23 

2F<D2> 

1308:A3 

F0 

EF 

90 

05 

9A 

05 

9C<a7> 

0D30:EJ5 

07 

A5 

D9 

85 

08 

86 

09<EE> 

1020=20 

9E 

26 

46 

F0 

90 

09 

1S<FC> 

1310:30 

E8 

A5 

99 

05 

A0 

AS 

9A<0C> 

QD3S=S4 

D4 

98 

29 

7F 

C9 

71 

B0<56> 

1028:AS 

04 

F0 

04 

49 

ez 

85 

D4<F1> 

1318:05 

Al 

20 

62 

C9 

A5 

SA 

a5<77> 

0040108 

C9 

ZF 

BZ 

03 

20 

9C 

2B<7A> 

1030:60 

BD 

03 

55 

14 

99 

39 

3E<CS> 

1320:E2 

AS 

8B 

85 
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00 
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12 
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FF 

86 

DF 

85 

DA 

84 

DB<37> 

1B88:08 

E6 

86 

00 

15 

E6 

87 
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1E60:38 

E9 
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04 
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04 

84 

e4<S7> 
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IB 

EB 

20 

FG 

EA 

ia 

A5<64> 
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03 

Bl 

86 

F0 

E3 

1S<B4> 

1E68:85 

Bl 

F3 

38 

E9 

30 

90 
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65 

DA 

85 

D4 

A5 

D5 
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86 

69 

04 

85 

86 

90 
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17 

BO 

lA 

C9 

0A 

90 

06<03> 

2148:DB 

as 

05 

B0 

22 
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A5 
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1BA0=E6 

87 

A0 

00 

81 

86 

89 

2C<1C> 
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07 

89 

OA 

90 

10 

A2 
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2150:ES 

DA 

85 

D6 

A5 

07 

ES 

DB<DS> 
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07 

C9 

9B 
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03 

88 
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04 
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05 

CA 

00 

F9 
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2158:85 

07 

90 

13 

05 

06 

F0 
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A5 

86 

A6 

07 

20 

53 

F4<02> 
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85 

04 

88 

00 

8 B 

20 

BA<AA> 

2160:33 

A5 

06 

E5 

E2 

85 

DC 

AS<74> 

1BBS:13 

AS 

86 

65 

D6 

85 

06 

90<A9> 

1E903EF 

4C 

00 

80 

A2 

00 

F0 

0A<4A> 

216S:D7 

E5 

E3 

85 

DO 

B0 

04 

A9<4A> 
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E6 

87 

60 

20 

81 

F0 
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00 

00 

06 

A2 

0C 
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2170:00 

AB 
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E6 
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00 

02 
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48 
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81 

F0 
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14 

10 

86 

84 

65 

D4 

AA<A5> 

2178:08 

A0 

0O 

Bl 

EO 

51 

04 

25<3C> 

1BD0:84 

A4 

85 

A2 

00 

85 

F3 

84<9A> 

lEABtBD 

70 

02 

A0 

00 

60 

4C 

29<DC> 

21B0:DF 

00 

30 

A5 

D4 

85 

DS 

A5<7F> 

lBDa:F4 

86 

F2 

AS 

86 

48 

20 

65<A7> 

1EB0:F5 

A0 

00 

A5 

05 

F0 

03 

20<26> 

2188:05 

85 

09 

A5 

EO 

35 

E4 

AS<49> 

1BE0:22 

B0 

0A 

66 

85 

F2 

00 

05<6D> 

1EBS:FE 

F3 

A5 

04 

48 

4A 

4A 

4A<CA> 

2190:E1 

85 

E5 

A5 

E3 

85 

DE 

A6<26> 

16£8iA6 

88 

48 

51 

EB 

A9 

08 

4C<3B> 

1EC0:4A 

20 

09 

F4 

66 

29 

0F 

09<17> 

2198:E2 

ES 

CA 

D0 

04 

C6 

DE 

30<43> 

1BF0:3D 

E9 

36 

88 

AS 

93 

80 

0A<SD> 

lECS:30 

89 

3A 

90 

02 

69 

06 

99<F5> 

2lA0:25 

Bl 

DB 

51 

E4 

25 

DF 

D0<03> 

1BF8:A5 

F2 

D0 

2A 

A9 

3F 

20 

F4<54> 

1ED0:80 

05 

C8 

60 

85 

84 

84 

D5<DE> 

21AS:0A 

C8 

DO 

EE 

E6 

D9 

E6 

E5<1E> 

1C00:E8 

2C 

86 

BS 

A5 

F2 

DO 

1E<91> 

1ED8:20 

F3 

F3 

A9 

80 

00 

30 

20<AD> 

21B0:4C 

DC 

F6 

E6 

D4 

D0 

02 

E6<74> 

1808:20 

00 

80 

A6 

93 

A5 

F3 

9D<54> 

lEE055ß 

22 

A0 

FF 

CS 

Bl 

F3 

10<31> 

2lß8=D5 

A5 

DC 

D0 

04 

C6 

DD 

30<29> 

1C10:44 

03 

A5 

F4 

90 

45 

03 

A9<GS> 

IE£8:FB 

29 

7F 

91 

F3 

C8 

A3 

F3<DB> 

21C0'-AE 

C6 

OC 

4C 

B5 

F6 

A5 

DA<AD> 

IC18:00 

98 

48 

03 

A9 

01 

90 

49<A6> 

1EF0:00 

10 

AD 

FC 

02 

A0 

00 

C9<0C> 

21C8:A4 

DB 

60 

S5 

06 

SS 

07 

A0<77> 

1C20:03 

A9 

05 

20 

86 

EA 

60 

20<5D> 

lEFBiCm 

80 

12 

A2 

0E 

DD 

28 

F6<9E> 

2100:08 

16 

E6 

36 

E5 

26 

D6 

90<B7> 

1C28=44 

Fl 

4C 

72 

Fl 

20 

34 

Fl<70> 

1F00:F0 

OB 

GA 

10 

F8 

20 

81 

EF<63> 

21DB:0B 

18 

B5 

E6 

65 

D7 

95 

E6<50> 

1C30:20 

65 

22 


BS 

A4 

F2 

B1<BA> 

1FOB:88 

CO 

05 

A0 

01 

A9 

80 

A2<25> 

21E0=90 

02 

F6 

E5 

88 

DO 

EA 

60<AB> 

1838:F3 

C9 

9B 

F0 

OB 

89 

28 

D0<10> 

1F10:05 

86 

85 

85 

84 

84 

06 

A9<5Q> 

21E8:4C 

29 

F5 

85 

04 

98 

05 

SD<19> 
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TURBO-BASIC 


21F0:I>0 

F6 

A5 

8 C 

D0 

02 

A9 

01<ED> 

24D0S 9D 

00 

D8 

9D 

00 

D9 

9D 

O0<58> 

27B0:DD 

30 

0E 

06 

DA 

26 

Ü8 

ÖS<40> 

21F8:S5 

D5 

A2 

16 

A9 

QO 

95 

D6<0C> 

24D8:DA 

9D 

00 

DB 

9D 

00 

DC 

9D<63> 

27BS:DO 

E4 

A5 

DD 

C9 

16 

BO 

01<EA> 

2200= CA 

10 

FB 

AS 

D5 

85 

E0 

EB<3B> 

24E0:00 

DD 

£8 

D0 

EB 

A5 

84 

85<D3> 

27C0=60 

4C 

S1 

F0 

86 

D3 

20 

3e<21> 

2208:20 

OD 

F7 

A5 

D4 

A2 

02 

20<19> 

24E8:8E 

85 

90 

85 

0E 

A5 

85 

a5<63> 

27CÖ:£E 

A9 

O0 

AB 

A6 

D3 

Ö6 

D3<D0> 

2210 =0D 

F7 

A5 

D5 

85 

D6 

AO 

08<4S> 

24F0:BF 

85 

91 

85 

0F 

4C 

86 

F0<50> 

27D0:18 

69 

01 

85 

DB 

48 

98 

69<32> 

2218:06 

DC 

26 

DB 

26 

DA 

06 

D6<:43> 

24F8:85 

89 

19 

A5 

90 

85 

88 

65<3E> 

27De:00 

30 

E6 

85 

D9 

48 

C6 

92<3C> 

2220= 90 

11 

18 

A5 

EC 

65 

£8 

85<97> 

2500;99 

A8 

A5 

91 

95 

89 

69 

00<6F> 

27E0:A4 

92 

18 

B9 

00 

DE 

69 

ßl<7E> 

2228iDC 

A5 

DB 

65 

E7 

85 

DB 

90<D8> 

2508:CD 

£6 

02 

90 

09 

DO 

10 

CC<EF> 

27EB:B5 

D6 

B9 

2A 

DE 

69 

00 

30<FO> 

22305 02 

£6 

DA 

88 

DO 

E2 

20 

DA<C2> 

2510:E5 

02 

90 

02 

DO 

09 

85 

91<BE> 

27F0:D0 

85 

D7 

20 

DO 

FC 

06 

I>C<7A> 

2238:F7 

20 

FF 

F7 

20 

DA 

F7 

20<C1> 

2518:85 

0 F 

84 

90 

84 

0E 

60 

A9<Ba> 

27Fe:26 

DD 

A4 

DD 

A5 

DC 

OA 

26<A9> 

22405 0D 

F8 

20 

Fl 

F7 

20 

FF 

F7<45> 

2520:02 

4C 

3D 

E9 

A5 

SF 

C5 

91<12> 

2800:DD 

65 

DC 

85 

DC 

90 

65 

DD<90> 

2248:20 

Fl 

F7 

20 

0D 

FB 

24 

E2<2C> 

2529:90 

06 

A5 

9E 

C5 

90 

B0 

25<2A> 

2808:85 

DD 

68 

85 

D9 

68 

85 

DS<70> 

2250:30 

21 

E6 

El 

18 

A5 

EB 

65<59> 

2530;A5 

90 

E9 

02 

85 

90 

85 

0E<A9> 

2810:4C 

6 C 

FD 

86 

D3 

85 

DS 

S4<0D> 

2258s£6 

85 

EB 

A5 

EA 

65 

ES 

85<D0> 

2530;90 

04 

C6 

91 

C6 

OF 

A0 

00<5S> 

2ai0:D9 

85 

DC 

84 

DD 

05 

D9 

F0<96> 

2260:EA 

90 

02 

E6 

E9 

39 

A2 

02<C7> 

2540:91 

90 

D0 

10 

38 

A5 

90 

E9<A4> 

2 B20:Aß 

98 

30 

9D 

A9 

OO 

85 

D6<5A> 

2260=85 

E2 

F5 

E9 

95 

E2 

CA 

10<BC> 

2548=OD 

85 

90 

85 

0E 

EO 

04 

C6<B5> 

2828:85 

D7 

A6 

D3 

BD 

00 

D9 

D0<BB>- 

2270=F7 

30 

C3 

AS 

E0 

FO 

2F 

C6<D0> 

2550:91 

C6 

0F 

98 

18 

60 

20 

66 <iß> 

2830:90 

A5 

8 E 

85 

D4 

A5 

8 F 

8S<0F> 

2278lEO 

38 

AS 

DC 

E5 

£8 

85 

DC<BC> 

2358:FA 

BO 

04 

FO 

F9 

10 

11 

A9<DE> 

2838:D5 

AS 

DC 

A4 

DD 

20 

DF 

EC<63> 

2280:A5 

DB 

£5 

E7 

85 

DB 

BO 

02<D3> 

2560=IC 

2C 

A9 

10 

4C 

3D 

E9 

20 <02> 

2840:A6 

D3 

20 

51 

EB 

A9 

00 

AS<47> 

2288:C6 

DA 

18 

A2 

02 

B5 

E2 

7S<60> 

2568:66 

FA 

B0 

F6 

FO 

F9 

10 

F2<4F> 

2848:A6 

DD 

F0 

OA 

91 

04 

CS 

DO<FD> 

2290:DA 

95 

£2 

CA 

10 

F7 

30 

9E<5A> 

2570= AO 

02 

68 

69 

Bl 

90 

48 

S8<7E> 

2850:FB 

E6 

D5 

CA 

DO 

F6 

A6 

DC<5C> 

2298:lÖ 

A5 

SB 

65 

E0 

85 

55 

A5<BE> 

2578:61 

90 

48 

60 

A2 

01 

2C 

A2<;39> 

2858:F0 

06 

91 

04 

C8 

CA 

D0 

FA<98> 

22Aa= 89 

69 

00 

SS 

56 

60 

A2 

00<13> 

2580:FF 

A9 

03 

20 

3A 

FA 

AO 

00<0S> 

2860:60 

Ö4 

£7 

AO 

00 

84 

ES 

S4<1E> 

22A8:S6 

54 

86 

55 

86 

56 

60 

38<2C> 

2588:9A 

91 

88 

CB 

68 

AA 

18 

69<F0> 

2360:E9 

FO 

10 

85 

E8 

84 

£9 

C6<5S> 

22B05 A5 

88 

E5 

ED 

SS 

55 

A5 

S9<4F> 

2590:03 

91 

BB 

C8 

68 

48 

69 

00<4D> 

28 /0:92 

A4 

92 

B9 

2A 

DE 

35 

E7<29> 

22B8:E9 

00 

85 

56 

60 

18 

A5 

8A<96> 

2598:91 

89 

8 A 

48 

60 

85 

BC 

84<E7> 

2878:E9 

00 

DE 

85 

E6 

20 

77 

EB<C2> 

22C0:65 

El 

85 

54 

AS 

BB 

69 

B0<F6> 

25A0EBD 

60 

20 

4A 

F0 

A9 

03 

20<52> 

2^80 ;A5 

E8 

C5 

DB 

A5 

E9 

E5 

D9<A2> 

22CßiF0 

0E 

60 

38 

A5 

8 A 

£5 

E1<11> 

25AS:3A 

FA 

AO 

00 

A9 

FF 

91 

SB<F4> 

2 Ö0 ö:B0 

35 

A4 

E6 

C4 

B6 

AS 

E7<S0> 

22D0IS5 

54 

A5 

BB 

E9 

00 

DO 

F2<12> 

25B0:CS 

68 

18 

69 

03 

91 

88 

ce<E5> 

2890;ES 

D7 

B0 

2 ß 

A5 

E7 

20 

D4< 9E> 

2209= A4 

ca 

A2 

60 

20 

Bl 

21 

C0<S0> 

25B8:60 

69 

00 

91 

88 

6 C 

D8 

OO<0F> 

2898:FC 

18 

A5 

DC 

65 

E8 

85 

DC<F9> 

22E0:BD 

F0 

£7 

4C 

38 

E9 

86 

9A<S2> 

25C0:A6 

14 

A5 

13 

A4 

12 

E4 

14<91> 

28AO;A5 

DD 

65 

£9 

06 

DC 

2 A 

ß5<4E> 

22E8:20 

02 

EA 

20 

DD 

C3 

A6 

aA<B7> 

25C8:D0 

F6 

86 

D3 

20 

13 

C0 

A9<4B> 

2ÖA8:DD 

AS 

A5 

DC 

OA 

26 

DD 

65<A7> 

22F0:86 

SA 

A6 

90 

86 

08 

A6 

91<;AE> 

25D0= 89 

AO 

FB 

20 

OB 

F2 

20 

E0<3S> 

2880=DC 

AA 

98 

65 

DD 

65 

D5 

AS<E0> 

22FS:96 

89 

20 

66 

FA 

90 

OC 

D0<B2> 

25Da:C2 

A5 

D3 

A0 

00 

20 

13 

C0<27> 

23BB:BA 

65 

D4 

90 

01 

C8 

60 

4C<5C> 

2300:0A 

A0 

OC 

Bl 

90 

C5 

9A 

D0<7E> 

25E0;4C 

Dl 

CO 

20 

02 

Fß 

A9 

8F<7C> 

2eCOs81 

FO 

20 

A3 

FD 

4C 

B5 

EB<76> 

2308:Fl 

F0 

08 

A5 

89 

85 

90 

A5<32> 

25Ea:AO 

FB 

20 

14 

F2 

AO 

00 

A5<;B9> 

23CB;20 

AD 

FD 

4C 

B5 

EB 

86 

D3<E7> 

2310:89 

95 

91 

A9 

10 

20 

3A 

FA<06> 

25F05D4 

C9 

40 

DO 

02 

84 

D5 

e4<A7> 

28D0:20 

13 

C0 

A6 

D3 

86 

D3 

20<BD> 

2318iC6 

92 

A6 

92 

A0 

00 

BD 

00<4A> 

25F8:F2 

A9 

24 

20 

51 

FB 

A9 

60<15> 

2808;FS 

EA 

A5 

11 

FO 

34 

A5 

D4<30> 

2320:DE 

91 

88 

CS 

BD 

2A 

DE 

91<02> 

2600:20 

51 

FB 

A9 

60 

20 

51 

FB<CB> 

28E0:A4 

D5 

A6 

D3 

20 

A3 

FD 

4C<2A> 

2329:88 

C8 

ED 

54 

DE 

91 

88 

C9<1F> 

2608:AO 

06 

A9 

80 

4C 

51 

F4 

4e<AA> 

28EÖ:5F 

ec 

86 

D3 

20 

13 

C0 

A6<55> 

2330:BD 

7E 

DE 

91 

88 

CB 

BD 

A8<CE> 

2610:20 

ec 

CI 

20 

B0 

C2 

20 

DD<3B> 

28F0:D3 

86 

D3 

20 

F5 

EA 

A5 

U<11> 

2338:DE 

91 

88 

ca 

BD 

D2 

DE 

91<8A> 

261Ö;C3 

68 

85 

D5 

20 

OB 

£4 

A9<6B> 

2aFBs F3 

18 

A5 

D4 

A4 

D5 

A6 

D3<D0> 

2340:88 

CB 

AS 

D4 

91 

88 

C8 

A5<B6> 

2620:00 

A4 

D4 

C0 

40 

00 

05 

A4<BB> 

2900:20 

AD 

FD 

4C 

5F 

EC 

20 

04<: D0> 

2348:E5 

91 

88 

C8 

A5 

D6 

91 

aö<34> 

2628;D5 

85 

D5 

98 

AA 

4A 

4A 

4A<89> 

2908:FE 

4C 

CE 

ED 

20 

0A 

FE 

4C<66> 

2350:C8 

A5 

D7 

91 

88 

C8 

A5 

DS<B0> 

2630:4A 

20 

79 

FB 

SA 

29 

0F 

09<28> 

2910;CE 

ED 

A9 

80 

4C 

3D 

£9 

B6<60> 

2358:91 

88 

CS 

A5 

D9 

91 

ea 

C8<7C> 

2638= 30 

C9 

3A 

90 

02 

69 

06 

A4<SO> 

2918:D3 

A6 

11 

F0 

F5 

A6 

D4 

B6<0A> 

2360= AS 

BA 

91 

B8 

C8 

A9 

0 O 

91<DC> 

2640:F2 

99 

80 

05 

E6 

F2 

60 

41<43> 

2920;88 

A6 

DS 

S6 

89 

A6 

D6 

B6<A7> 

2368:88 

C8 

69 

AA 

18 

69 

05 

91<9E> 

2648:02 

56 

OO 

00 

OO 

43 

04 

32<6E> 

2928:3C 

A6 

D7 

86 

8 D 

A6 

D3 

4C<1B> 

2370:80 

C8 

68 

48 

69 

00 

91 

88 <6A> 

2650 = 00 

00 

00 

20 

84 

F3 

84 

EK70> 

2930:77 

Eß 

20 

59 

FE 

AS 

D9 

A4<5A> 

2378:SA 

48 

A5 

96 

D0 

26 

A5 

90<75> 

1 2658=84 

E2 

20 

DE 

FB 

C9 

18 

Ba<FC> 

2930:D8 

20 

AF 

FE 

9D 

OO 

DB 

9e<H7> 

2380: 49 

AS 

91 

48 

AS 

98 

85 

90<S£> 

2660= 35 

85 

EO 

20 

2 D 

FC 

20 

DE<1B> 

2940:9D 

0 O 

DA 

60 

20 

59 

F£ 

20<31> 

2389:A5 

89 

85 

91 

A5 

D4 

48 

A6<B6> 

2668:FB 

C9 

3C 

B0 

29 

20 

F8 

FB<93> 

2948:01 

FF 

20 

AE 

FE 

4C 

7E 

FE<A5> 

2390:SA 

20 

77 

EB 

68 

20 

4C 

F9<96> 

2670=20 

2D 

FC 

20 

DE 

FB 

C9 

3C<42> 

2950:20 

59 

FE 

20 

EO 

FE 

20 

Aß<6C> 

2398:90 

07 

68 

85 

91 

60 

85 

90<aC> 

2678:BO 

IC 

20 

F8 

FB 

20 

0C 

FC<93> 

29585 FE 

DD 

00 
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TURBO-BASIC 


Von der 
Ordnung zum 
Chaos - 
Apfelmänn¬ 
chen auf dem 
Atari 

Faszinierende Grafiken von nahezu unendlicher 
Vielfalt erzeugt das Programm »Apfelmännchen« 
auf dem Atari 800XL in Turbo-Basic. 

G rundlage dieses Programms ist ein Teilgebiet der 
Mathematik von gro6er Komplexität. Es handelt sich 
um die Berechnung und Betrachtung der sogenann¬ 
ten Mandelbrot-Menge und speziell deren Grenzschichten. 
Diese Menge, benannt nach dem Wissenschaftler Benoit B. 
Mandelbrot, besteht aus einer Folge von komplexen Zahlen, 
die sich recht merkwürdig verhalten. Trägt man die beiden 
Komponenten jeder komplexen Zahl, die sich aus diesem 
Algorithmus ergibt, auf die Abszisse und die Ordinate eines 
Koordinatensystems auf, so erhält man Grafiken, die kuriose 
Eigenschaften aufweisen. 

Um den grundlegenden Algorithmus zu verstehen, muß 
man sich etwas näher mit den Eigenschaften komplexer Zah¬ 
len auseinandersetzen. Eine komplexe Zahl besteht immer 
aus zwei Komponenten, dem Realteil und dem Imaginärteil. 
Die Schreibweise erfolgt in der Form: »C=a-l-bi«. Die kom¬ 
plexe Zahl C ergibt sich also aus dem Realteil a und dem Ima¬ 
ginärteil b. Der Buchstabe i steht für eine Konstante und 
unterliegt folgender Definition: »P=-1«. Die Rechenregeln 
der komplexen Zahlen weichen jedoch von denen der reellen 
Zahlen ab. Geht man bei der Addition noch in gewohnter 
Weise vor und addiert Real- und Imaginärteil einfach separat, 
ist das Multiplizieren schon etwas komplizierter. So ergibt 
sich »(a+bi)*(c-l-di}<( zu »(a*c-b*d)-l-(a*d-l-b*c)*i«. Wer 
diese Formel genauer betrachtet, wird feststeilen, daß sich 
»P« aufgrund seiner Definition zu -1 aufgelöst hat. 

Beim »Apfelmännchen« geht man von der komplexen Zahl 
Null aus, zieht eine komplexe Zahl C ab und quadriert das 
Ergebnis. Nun zieht man erneut C ab und quadriert das Ganze 
wiederum. Dieser Vorgang wiederholt sich so lange, bis ein 
vorher festgelegtes Grenzkriterium überschritten wird. Alle 
Zahlen, die hierbei gegen Unendlich streben, gehören zur 
Mandelbrot-Menge. Am Rand dieser Menge stellt sich 
jedoch ein seltsamer Effekt ein. Hier fallen oder steigen die 
Zahlen bei wechselndem Vorzeichen scheinbar völlig regel¬ 
los. Dies ist der für die Grafik interessante Teil der 
Mandelbrot-Menge. Zwei Grenzlciterien legen nun fest, ob 
man sich innerhalb oder außerhalb beziehungsweise am 
Rand der Mandelbrot-Ebene befindet. Das erste Kriterium 
bricht den Algorithmus nach einer vorher festgeiegten Zahl 
von Durchgängen ab. Im Listing geschieht dies durch die 
Variable »TMAX«. Wird dieser Wert erreicht, nimmt man an, 
daß die Folge gegen Unendlich strebt. Der Punkt auf dem 
Bildschirm erhält die Farbe Schwarz. Im anderen Fall wurde 


das zweite Grenzlciterium zuerst erreicht. Dies ist dann der 
Fall, wenn die komplexe Zahl einen bestimmten Wert über¬ 
schreitet. Im Listing wurde der Grenzwert 8 angenommen, 
der jedoch keine feste Größe darstellt, und fast beliebig 
geändert werden kann. Die zuzuordnende Farbe wird nun 
von der Anzahl der Iterationen abhängig gemacht. Im Listing 
geschieht dies mit der Zuordnung »TIEFE MOD 3-1-1«. Diese 
Berechnung kann zu den Farben Eins, Zwei und Drei, niemals 
jedoch zu der Farbe Null führen. 

Für jeden Punkt, der berechnet werden soll, wird natürlich 
eine andere komplexe Zahl C gewählt. Die Umgebung der 
Mandelbrot-Ebene ergibt sich für folgende Werte; Realteil 
von -2 bis 1 und Imaginärteii von -1.5 bis 1.5. Innerhalb die¬ 
ser Grenzen kann man nun beliebig kleine Ausschnitte auf 
dem Bildschirm darstellen, also Teilbereiche der Menge 
gewissermaßen vergrößern. Dabei stellt man fest, daß immer 
neue Grafiken oder Figuren entstehen, die zum Teil zu ande¬ 
ren Ausschnitten ähnlich, aber nie genau gleich sind. Die ein¬ 
zige Einschränkung, die hierbei vom Computer auferlegt 
wird, liegt in der begrenzten Rechengenauigkeit. Bei theore¬ 
tisch unendlicher Rechengenauigkeit ließe sich die Grafik 
unendlich oft vergrößern. Geht man also beispielsweise von 
den Grenzen und 1 aus, so wären als nächste .Vergrö¬ 
ßerungsstufe die Werte -0.5,0.5,-0.5 und 0,5 denkbar. Hal¬ 
biert man diese Werte immer wieder, so ist klar ersichtlich, 
daß auch eine zehnstellige Rechengenauigkeit bald nicht 
mehr zur Darstellung der Zahlen genügt. 


Komplexe Formel, schöne Grafik 


Zur Realisierung dieses Programms auf dem Atari wurde 
als Programmiersprache Turbo-ßasic XL gewählt. Die zirka 
viermal so hohe Rechengeschwindigkeit, die diese Sprache 
gegenüber dem normalen Basic aufweist, ist für eine akzep¬ 
table Rechendauer unbedingt notwendig. Die Grafik wird in 
Grafikstufe 15 erzeugt. Dies bedeutet, daß genau 30720 
Bildpunkte berechnet werden müssen. Abhängig von der 
maximalen Iterationszahl, die man mit »TMAX« bestimmt hat, 
kann jeder Punkt zudem bis zu 250mal berechnet werden. 
Selbst unter Turbo-Basic XL führt dies in Extremfällen zu 
Rechenzeiten von acht Stunden und mehr. Die Programmie¬ 
rung in Atari-Basic erscheint also wenig sinnvoll, will man 
nicht ein bis zwei Tage auf die Vollendung einer Grafik warten. 

Handhabung des Programms 

Nach dem Starten des Programms kommt man in das zen¬ 
trale Menü, von dem aus alle Funktionen direkt ansprechbar 
sind. Punkt eins des Menüs betrifft den Start eines Apfel¬ 
männchens. Man muß zuerst die obere und untere Grenze 
des Real- und tmaginärbereichs eingeben. Auf die Frage 


PROGRAMM-STECKBRIEF 

Programm name 

Apfelmännchen 

Programmtyp 

Grafik 

Programmiersprache 

Turbo-Basic XL 

Programmiänge 

7155 Byte 

für Computer 

800 XL130 XE , 

zusätzliche Hardware 

Diskettenlaufwerk 

Eingabehilfe 

Prüfsummer 

Bemerkung 

Erzeugt und speichert Grafiken, die 
mittels einer spezielien mathematischen 
Formel berechnet werden. Auf der 
Leserservice-Diskette sind einige fer¬ 
tige Grafiken bereits gespeichert. 

Leserservice 

Diskette (APFELTUR) 



















TURBO-BASIC 


»TIEFE?« antwortet man mit der maximalen Anzahl der Itera¬ 
tionen. die man zur Berechnung jedes Punktes zulassen will. 
Je höher man diesen Wert wählt, desto feiner werden die 
Grenzbereiche zur Mandelbrot-Ebene berechnet. Dies 
bedeutet allerdings auch eine Erhöhung der Rechenzeit, so 
d£ü5 man hier meist Kompromisse eingehen wird. Die Berech¬ 
nung der Grafik kann dann auf dem Bildschirm mitverfolgt 
werden. Nach der Fertigstellung springt das Programm 
zurück ins Hauptmenü. Das fertige Bild kann man nun mit 
Option 2 auf dem Bildschirm betrachten. Mit den Tasten 0,1, 
2, und 3 werden die vier Grundfarben nach Belieben nach¬ 
träglich geändert. Mit Hilfe des dritten Menüpunktes spei¬ 
chert man das fertige Bild. Wie es auch im Micropainterformat 
üblich ist, werden am Ende des Bildes vier Byte angehängt, 
die Auskunft über die verwendeten Farben geben. Zusätzlich 
speichert das Programm allerdings noch die eingegebenen 
Parameter. So kann man mit Punkt vier des Menüs also auch 
nur solche Bilder von Diskette laden, die das eben beschrie¬ 
bene Format besitzen. 


Apfelmännchen schön und bunt 


Das Inhaltsverzeichnis einer Diskette erhält man mit Punkt 
fünf des Menüs. Der sechste Punkt, nämlich »Effekte«, läßt 
die drei Vordergundfarben eines Apfelmännchens über den 
Bildschirm »fließen«. Dies gibt der Grafik je nach Aussehen 
interessante, teilweise räumlich wirkende Effekte. 

Um das Vergrößern einzelner Bildteile zu erleichtern, 
wurde Menüpunkt sieben aufgenommen. Mit Hilfe eines Joy¬ 
sticks kann man einen Bildausschnitt eingrenzen und erneut 
berechnen lassen. Dies geschieht, indem man zwei Eck¬ 
punkte eines gedachten Rechtecks entsprechend auf dem 
Bildschirm plaziert. Welchen der Eckpunkte man bewegen 
will, wird mit der Feuertaste gewählt. Die Berechnung der 
neuen Grafikbeginnt nach dem Drücken der STARTTaste. Will 
man sich die neuen Parameter vorher noch ansehen, so wählt 
man einfach OPTION. Funktion acht des Menüs zeigt nun die 
Parameter, und mit Punkt neun startet die Berechnung des 
neuen Apfelmännchens. 

Zum Programmaufbau 

Das Programm »Apfelmännchen« wurde in Turbo-Basic XL 
geschrieben und konnte daher nicht nur wesentlich schnel¬ 
ler, sondern auch strukturierter als im normalen Basic ange¬ 
legt werden. So wird es auf den ersten Blick auffallen, daß 
beispielsweise auf Zeilennummern-orientierte Sprunganwei¬ 
sungen mit Ausnahme der »TRAP«-Befehle vollständig ver¬ 
zichtet wurde Alle Hauptprogrammteile und Unterroutinen 
sind als Prozeduren angelegt und sinngemäß benannt. 

Die Hauptschleife besteht aus einer DO-LOOP-Anweisung 
von Zeile 95 bis Zeile 240. Hier wird das Hauptmenü auf den 
Bildschirm gebracht, und von hier aus erfolgt der Sprung zu 
allen wesentlichen Prozeduren. Die einzelnen Prozeduren: 

DECLARE 

Es erfolgt die Dimensionierung aller Stringvariablen sowie 
die Erstbelegung der Variablen für die Änderung der Farbre- 
gister. Das Aussehen der beiden Player, die für die Aus¬ 
schnittberechnung benötigt werden, legen die Variablen LO$ 
und RU$ fest. 

RECHNEN 

Hier findet man den Berechnungsalgorithmus, wie er im 
wesentlichen bereits erklärt wurde. Verwendung findet die 
Grafikstufe 15; man verfügt also über vier Farben bei einer 
Auflösung von 160 mal 192 Bildpunkten. Es wäre auch eine 
andere Grafikstufe denkbar. In diesem Fall müßten folgende 
Änderungen vorgenommen werden: Anpassung der Varia¬ 
blen DX, DY sowie der Schleifen ZEILE und SPALTE an die 


neue Auflösung. In Zeile 1230 muß anstatt der drei die Anzahl 
der Farben minus eins eingesetzt werden. 

EFFEKTE 

Die drei Farbregisterfür die Vordergrundfarben werden mit 
verschiedenen Farbwerten belegt. Durch die Verschiebung 
der Farben entsteht der Eindruck des Fließens. 

PARAMETER 

Hier gibt man die Randwerte für ein neues Apfelmännchen 
ein. Ist dies geschehen, wird die Prozedur RECHNEN aufge¬ 
rufen. 

SEHEN 

Über die Prozedur BILDHOLEN wird das momentan im 
Speicher befindliche Apfelm^nchen auf dem Bildschirm 
dargestellt. Die Rirbregister708, 709,710 und 712 werden 
durch Drücken der Tasten 0 bis 3 jeweils um den Wert eins 
inkrementiert Die REPEAT-Anweisung wird bis zum Betäti¬ 
gen der Leertaste ausgeführt. 


SPEICHERN 

Zuerst erfolgt der Aufruf der Prozedur »FILEGET«. Dabei 
wird der Filename des Bildes gelesen, auf Fehler überprüft 
und gegebenenfalls ergänzt. Mit dem BPUT-Befehl wird der 
Inhalt des Bildschirmspeichers auf Diskette abgelegt. Es fol¬ 
gen die vier F^rbbytes und die Parameter. Da es sich bei letz¬ 
teren um Gleitkommaz^Ien handelt, werden sie als Strings 
gespeichert. 

LADEN 

Diese Prozedur entspricht fast vollständig der Prozedur 
»SPEICHERN«. Alle Schreibbefehle sind sinngemäß in Lese¬ 
befehle umgewandelt. Eventuell auftretende Fehler bei der 
Diskettenhandhabung werden von TRAP-Routinen s^gefan- 
gen. 

DIRECTORY 

Der linke Bildrand wird auf Position 7 gesetzt und das Direc¬ 
tory mit dem DIR-Befehl aufgerufen. Nach Betätigung einer 
Taste erfolgt der Rücksprung ins Hauptmenü. 

Ausschnitt 

Diese Prozedur setzt sich aus mehreren Unterprogrammen 
zusammen. PMINIT initialisiert die grundsätzlichen Vorein¬ 
stellungen für den Player/Missile-Aufruf. Verwendung finden 
die Player null und eins. Sie werden in Einzelzeilen-Auflösung 
dargestellt. Ihre Farbe ist Weiß und die erste Position wird 
durch die Variablen XO, YO, XI und Y1 definiert. PMBUILD 
positioniert die beiden Player auf dem Bildschirm. Der Aufbau 
erfolgt dabei durch den MOVE-Befehl. Die folgende REPEAT- 
Anweisung fragt den Joystick und die Sondertasten ab. 
Abhängig von der Auslenkrichtung des Joysticks werden die 
Prozeduren »PMLEFT«, »PMRIGHT«, »PMUP« und 
»PMDOWN« angesprungen. Sie versetzen den jeweiligen 
Player um einen Pixel in die gewünschte Richtung. Ist die 
Positionierung abgeschlossen, werden die alten Parameter 
durch die neuen Werte ersetzt. Die Prozedur »PMEXIT« 
schaltet zuletzt die beiden Player wieder aus. 

PARAMANZ 

Hier werden lediglich die aktuellen F^ameter auf dem Bild¬ 
schirm angezeigf. Nach dem Betätigen einer beliebigen Taste 
gelangt man wieder ins HauptmenO. 

(Wolfgang Czerny/wb) 








TURBO-BASIC 


10 — <.YW> 

15 REM — Apfelmaenntzhen, in — <DT> 

17 REH - Turbo-Basic XL -fuer - <FU> 

19 REH — Atari—Computer mit - <CE> 

20 REM — mindestens 4B KByte-RAM- <EtC> 

25 REM - - <KM> 

27 REM — Programmiert von - <RA> 

29 REM - Wol-fgang Czerny — <AR> 

30 REM — Cc) Happy—Computer - <LL> 

35 — <2I> 

90 EXEC DECLARE <YX> 

95 DO <RA> 

100 GRAPHICS 0:POKE 752,1 <GU> 

110 POKE 709,0;POKE 7l0,lß:POKE 712,10 <BY> 

115 POKE 82,0 <HV> 

120 POSITIQM 9,ls2 "HAUPTHENUE" <XC> 

13ß POSITION 9,2:2 "-“ <BC> 

140 POSITION 3,5:2 " (1 > j^^Ä-^Parameter ^ei nq 
eben'“ <SM> 

150 POSITION 3,7:2 " C2> 1 d^ansehen" <AW> 

160 POSITION 3,9:2 C3) 1 d^speichern 

<DV> 

170 POSITION 3,11:2 ““ (4)-.*^Bild^laden“ <140> 

188 POSITION 3,13:? " C5) ^^^Di rector y^* <iy> 

190 POSITION 3,15:2 16) *^^E4f ekte" <GC> 

195 POSITION 3,17:2 " (7) **>.Auschnitt" <JF> 

197 POSITION 3,19:2 " <8) *A*.Parameter^anz 
eigen” <WK> 

199 POSITION 3,21:2 ** (9) ***Rec:hnen<RF> 

200 POSITION 3,23:7 ”C0>^^^Ende"; <EA> 

205 REPEAT <DH> 

210 SET EIN <HE> 

220 UNTIL ElN>4r7 AND EIN<58 <OH> 

225 IF EIN=48 THEN EXIT <EF> 

230 DN ErN-4a EXEC PARAMETER,SEHEN,SPEIC 
HERN,LADEN,DIRECTORY,EFFEKTE,AUSSCHNITT, 

PARAHANZ,RECHNEN < XD > 

240 LOOP <CF> 

250 END <XX> 

1000 — <V£> 

1002 REM “ Rechenrauliine <IU> 

1003 — <VQ> 

1009 PROC RECHNEN <NR> 

1010 GRAPHICS 15+16:POKE 764,255 <QS> 

1030 DX=^tXMAX-XMIN)/159 <MN> 

1048 DY=CYMAX-YMIN>/191 <KE> 

1050 CX=XMIN:CY=YMAX <SU> 

1080 FOR ZEILE=0 TD 191 <FH> 

1090 FOR SPALTE=0 TO 159 <WH> 

1110 TI=0:XW=0:YW=0:X2=0:Y2=^0 <JY> 

1120 WHILE TKTMAX AND CX2+Y2)<8 <PY> 

1130 YW-^2*XW*YW-CY: XW=X2-V2-CX <TU> 

1150 X2=XW""2: Y2^VW^2:TI=TI + 1 <XN> 

11Ö0 WEND <UE> 

1190 IF TI^TMAX <FI> 

1200 COLOR 7-0 <QL> 

1220 ELSE <TE> 

1230 COLGR tTI MOD 3)+7-1 <ID> 

1240 ENDIF <SW> 

1258 CX=CX+DX:PLQT SPALTE,ZEILE <XA> 

1260 IF FEEK(764)=2e THEN POP :60TQ 1295 <FH> 
1270 NEXT SPALTE <DB> 

1280 CX==XMINiCY^CY-Dy <DC> 

1290 NEXT ZEILE <6B> 

1295 EXEC BILDSPEICHERN <WL> 

1300 ENDPROC <01> 

1301 — <V0> 

1302 REM - Bildeffekte - <DV> 

1303 — <VW> 

1305 PROC EFFEKTE <JT> 

1310 EXEC BILDHOLEN <IF> 

1370 POKE 764,255 <GS> 

1375 REPEAT <FU> 

1380 POKE 788,COL0; POKE 709,COLI <GEE> 

1390 POKE 710,C0L2:PAUSE 5 <HI> 

1400 POKE 70S,COL1:POKE 709,COL2 <RG> 


1410 POKE 710,COL0:PAUSE 5 <FC> 

1420 POKE 708,bOL2:POKE 709,COL0 <PS> 

1430 POKE 710,COLi:PAUSE 5 <GA> 

1455 UNTIL PEEK (764)0255 <XF> 

1460 ENDPROC <PC> 

1470 — <WH> 

1480 REM — Parametereingabe - <MK> 

1490 — <WN> 

2000 PROC PARAMETER <UK> 

2005 REPEAT <EU> 

2010 TRAP 2010 <LV> 

2020 CLS :POKE 752,0 <NK> 

2030 POSITION 9,3:2 "PARAMETER^EINGEBEN" <WB> 

2040 POSITION 9,4:2 --- ——<YI> 

2045 REPEAT <FG> 

2050 POSITION 3,7; INPUT ”Linker-..Rand*=^" 

;XHIN <SZ> 

2060 POSITION 3,9:INPUT ”Rechter^Rand^=^ 
";XMAX <HT> 

2065 UNTIL XMIN<XMAX <PB> 

2067 REPEAT <FU> 

2070 POSITION 3, 11: INPUT ''Unterer^Rand*= 

^’';YMAX <SS> 

2080 POSITION 3,13: INPUT "Ob er er-..Ran d*=* 
‘■;YMIN <WL> 

2082 UNTIL YMAX<YMIN <FO> 

2083 REPEAT <FK> 

2085 POSITION 3,15: INPUT '“Tief e^(5-..-^254 
>^^";TMAX <DJ> 

2087 UNTIL TMAX>4 AND TMAX<255 <WJ> 

2090 POSITION 3,20:2 "ALCES-..IN*0RDNUN6*7 
*<J/N)"; <D0> 

2071 REPEAT <FF> 

2092 GET EIN <JJ> 

2093 UNTIL EIN=74 OR EIN=78 <2R> 

2094 UNTIL EIN=74 <KG> 

2095 EXEC RECHNEN <KD> 

2188 ENDPROC <OF> 

2110 — <VK> 

2120 REM - Bild ansehen - <DP> 

2130 — <YQ> 

3080 PROC SEHEN <YF> 

3010 EXEC BILDHOLEN <IB> 

3015 REPEAT <EY> 

3017 REPEAT <FG> 

3020 GET EIN <IH> 

3040 UNTIL (EIN>47 AND EIN<52> OR £IN=32 <UQ> 
3050 IF EIN-48=0 THEN COL0=COL0+1:IF COL 
0>255 THEN CaL0=COL0-256 <ZQ> 

3060 IF EIN-48=1 THEN C0L1=C0L1+1:IF COL 
1>255 THEN COL1=C0L1-256 <I0> 

3070 IF EIN-4S^2 THEN CDL2=CDL2+l:IF COL 

2>255 THEN C0L2=C0L2-2S6 <RM> 

3080 IF EIN-4S=3 THEN C0L3=CQL3+1:IF COL 
3>255 THEN C0L3=C0L3-256 <AK> 

3090 POKE 708,COLO:POKE 709,COLI:POKE 71 
0,COL2:PDKE 712,C0L3 <XJ> 

3100 UNTIL EIN=32 <EY> 

3110 EXEC BILDSPEICHERN <UT> 

3900 ENDPROC <OW > 

3990 — <WZ> 

3992 REM - Bild auf Diskette - <KC> 

3993 REM - speichern — <GS> 

3994 — <XP> 

4000 PROC SPEICHERN <SV> 

4010 CLS <TL> 

4020 POSITION 9,3:? ”BILD*SPEICHERN" <BX> 

4030 POSITION 9,4:7 "- ™“'. <TL> 

4050 EXEC FILEQET <IN> 

4100 EXEC BILDHQLEN <IB> 

4110 DPEN #1,8,0,DAT^ <SV> 

4128 BPÜT Äl,DPEEK<8a),7688 <EU> 

4130 PUT #1,COL0,CQL1,CDL2,COL3 <PH> 

4140 PRINT #1,STR#CXMIN> <DJ> 

4150 PRINT #1,STR$(XMAX> <FQ> 

4160 PRINT #l,STRf(YMIN) <EJ> 
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4170 

PRINT #1 ,STR:^<YMAX> 

% 

<GD> 

8140 

XDELTA=X1POS-X0POS 

<CH> 

41S0 

PRINT #1^STR$(TMAX} 


<CV> 

8145 

DSOUND 

<JG> 

4190 

CLQSE #1 


<NP> 

8150 

UNTIL C3TART=h^ OR STARTES) AND XDEL 


4900 

ENDPRÜC 


<0X> 

TA>1 

AND yDELTA>l 

<T3> 

4990 

— 


<XA> 

8160 

DEX=^203-40s DEY=223-32 

<DS> 

4992 

REM — Bild von Diskette — 


<;qj> 

8170 

DXD= CXMAX-XMIN>/DEX 

<CP> 

4993 

REM “ l^den, — 


<ZH> 

8180 

DYD= <YMAX-YMIN)/DEY 

<EY> 

4994 

— 


<X0> 

8190 

XMlNN=XMIN+DXD-)t CX0POS-44) 

<VS> 

3000 

PROC LADEN 


<RM> 

8200 

XMAXN=XMIN+DXD*(XlPOS-35) 

<WR> 

5010 

CLS 


<TM> 

8210 

YMINN=YMIN+DYD* C Y0POS-30) 

<R0> 

5020 

POSITION 9^3i2 "EILD^LADEN" 


<I6> 

8220 

YMAXN=YMIN+DYD* CYlF0S-2a) 

<BK> 

5030 

POSITION 9,4:7 "-" 


<QI> 

8230 

TMAX=254 

<DC> 

5050 

EXEC FILEGET 


<I0> 

8240 

XMIN^XMINN:XMAX=XMAXN 

<X2> 

5100 

GRAPHICS 15+16 


<FR> 

8250 

YMIN=YMINN:YMAX=YMAXN 

<AG> 

5110 

OPEN #1,4,0,DAT^ 


<QS> 

8260 

EXEC PMEXIT 

<Dr> 

5120 

EGET #1, DPEEK 488) , 7680 


<XM> 

8270 

IF START=6 THEN EXEC RECHNEN 

<ZC> 

5125 

,GET # 1, COLO T COL1 , C0L2 , C0L3 


<JF> 

8900 

ENDPROC 

<PB> 

5130 

INPUT #1,E$:XHIN^VALCEi) 


<6M> ’ 

8990 

— 

<XE> 

5140 

INPUT #1,E$:XMAX=VALCE^) 


<IN> 

8991 

REM — Player Missile—Gra-Fik 

<JV> 

5150 

INPUT #l,E*:YMIN==VALtEt:> 


<HK> 

B992 

REM - initialisieren — 

<QJ> 

5160 

INFUT 4H,E^P;YMAX=VAL(E^> 


<DL> 

8993 

— 

<XQ> 

5165 

INPUT #l,E*sTMAX=VfM_(E*) 


<GT> 

9000 

PROC PMINIT 

<DA> 

5170 

CLOSE #1 


<NK> 

9010 

PMB=PEEK(106}-40:POKE 54279,PMB 

<MV> 

51B0 

EXEC BILDSPEICHERN 


<VQ> 

9020 

PMB=PMBifr256:P0KE 559,62 

<XL> 

5190 

ENDPROC 


<P3> 

9030 

POKE 53256,0:PDKE 53257,0 

<YU> 

5199 

— 


<XV> 

9040 

PMNR=0:POKE 704,255:POKE 705,255 

<HP> 

5200 

REM ~ Directcary auT dem ” 


<PR> 

9050 

MOVE ADR(LEER* >,PMB+1024,256 

<BE> 

5210 

REM — Bildschirm ausgeben ^ 


<FI> 

9060 

MOVE ADR(LEER*),PMB+1280,256 

<FJ> 

5220 

— 


<VS> 

9070 

X0POS=44 : Y0POS--30 

<DF> 

6000 

PROC DIRECTORY 


<JQ> 

9080 

X1P0S^198:YlPaS=218 

<GF> 

6010 

CLS :POKE 82,7:7 


<XG> 

9090 

ENDPROC 

<PL> 

6020 

DIR 


<ST> 

9092 

— 

<WV> 

6030 

GET EIN 


<IN> 

9093 

REM - Player Missiles auf— — 

<FG> 

6035 

POKE 82,0 


<LP> 

9094 

REM — bauen und mani— — 

<KO> 

6040 

ENDPROC 


<0T> 

9095 

REM - pulieren - 

<SK> 

6050 

— 


<VY> 

9099 

— 

<XX> 

6060 

REM — Filename abfragen — 


<VX> 

9100 

PROC PMBÜILD 

<QX> 

6070 

—- 


<W£> 

9110 

POKE 53277,3 

<EX> 

7000 

PROC FILEGET 


<MB> 

9120 

POKE 53248,X0PaS:POKE 53249,XIPOS 

<R2> 

7005 

TRAF 7005 


<RC> 

9130 

MOVE ADR(LO* >,PMB+1024+Y0POS,8 

<NX> 

7007 

FOKE 752,0 


<PC> 

9140 

MOVE ADR(RU*),PMB+1280+Y1PDS,8 

< AC> ' 

7010 

POSITION 3,7=INPUT "WELCHER*FILE-NA 


9190 

ENDPROC 

<FN> 

ME*" ^ 

;FILES 


<JL> 

9200 

PROC PMEXIT 

<G0> 

7020 

DATS=" ******-..-..****-*.**" 


<A0> 

9210 

POKE 53277,0 

<DA> 

7050 

IF FILE#<1,2)<>"D:" 


<£N> 

9220 

POKE 559,34 

<YW> 

7060 

DATS(3,LEN CFILES)+2)=FILES 


<TB> 

9230 

MOVE ADR(LEER*),PMB+1024,256 

<BC> 

7070 

DATS(1,2)="D=" 


<CH> 

9240 

MOVE ADR C LEER*),PMB+1280,256 

<FH> 

7080 

ELSE 


<TY> 

9250 

ENDPROC 

<PD> 

7090 

DATS^FILES 


<UD> 

9270 

— 

<WR> 

7095 

ENDIF 


<UH> 

9292 

REM — Player Missiles nach — 

<NS> 

7110 

TRAP 20000 


<NK> 

9293 

REM ■" oben bewegen “ 

<MD> 

7900 

ENDPROC 


<PA> 

9294 

— 

<XH> 

7990 

— 


<XD> 

9300 

PROC PMUP 

<UN> 

7992 

REM - Ausschnitt waehlen - 


<MB> 

9310 

IF PMNR-0 

<VJ> 

7993 

REM — iiXGT diesen Progranim— — 


<PA> 

9312 

Y0PQS=Y0POS-1 

<UY> 

7994 

REM - teil wird ein Joy— — 


<YA> 

9314 

IF Y0POS<30 THEN Y0POS=30 

<XU> 

7995 

REM - stick benoetigt - 


<VL> 

9317 

MOVE ADRCLOS),PMB+1024+Y0POS,8 

<ox> 

7996 

— 


<YB> 

931B 

ENDIF 

<UD> 

8000 

PROC AUSSCHNITT 


<QS> 

9320 

IF PMWR=1 

<WA> 

8010 

EXEC BILDHOLEN 


<I6> 

9322 

YlPas=YlPOS“l 

<W> 

8015 

EXEC PMINIT 


<2W> 

9324 

IF YlPOS<28 THEN YlP0S=2a 

<LR> 

8020 

EXEC PMßUILD 


<NA> 

9327 

MOVE ADRCRü*),PMB+12S0+Y1PQS,8 

<BC> 

8022 

REPEAT 


<EU> 

9328 

ENDIF 

<UG> 

8024 

REPEAT 


<FC> 

9390 

ENDPROC 

<PR> 

8030 

JOY=STICKC0) 


<CP> 

9392 

— 

<XB> 

8040 

PRESS=STRIBC0> 


<FG> 

9393 

REM - Player Missiles nach - 

<NY> 

8045 

START=PEEK C53279) 


<IL> 

9394 

REM — unten bewegen - 

<RN> 

8050 

UNTIL J0YO15 ÜR PRESS=0 OR STARTO 


9399 

— 

<YD> 

7 



<NG> 

9400 

PROC PMDOWN 

<FT> 

8060 

IF JÜY=11 THEN EXEC PMLEFT 


<AA> 

9410 

IF PMNR=0 

<VL> 

8070 

IF JOY=7 THEN EXEC PMRIGHT 


<E0> 

9412 

Y0POS=Y0POS+1 

<TS> 

8080 

IF J0Y=^14 THEN EXEC FMUP 


<YX> 

9414 

IF Y0POS>221 THEN YOPOS=221 

<YA> 

8090 

IF JOY=l3 THEN EXEC PMDQWN 


<QL> 

9416 

MOVE ADRtLQ*),PMB+1024+Y0POS,S 

<0V> 

8100 

IF PRESS=0 AND PMNR=0 


<MY> 

9418 

ENDIF 

<UF> 

8105 

PMNR=l=SaUND 0,10,10,1O=PAUSE 

10 

<PY> 

9420 

IF PMNR=1 

<WC> 

8107 

ELSE 


<UF> 

9422 

YlPOS=YlPOS+l 

<UP> 

8110 

IF PRESS=0 AND PMNR=1 THEN PMNR=0:5 


9424 

IF Y1POS>218 THEN Y1P0S=218 

<KW> 

OUND 

0,100,10,10:PAUSE 10 


<uu> 

9426 

MOVE ADR(RU*>,PMB+12B0+Y1PDS,8 

<BA> 

8120 

ENDIF 


<S9> 

9428 

ENDIF 

<UI> 

8130 

VDELTA=Y1POS-Y0FOS 


<DD> 

9590 

ENDPROC 

<PV> 
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Jeder kann prograimnieren 
Computersprache für Eltern und Kinder 
DANIEL WATT 

LOGO,,.Ergebnis der Erforschung menschlicher 
Intelligenz 

Entwickelt von Seymour Papert, Pädagoge und Mathematik¬ 
professor. 

Erste Computersprache, die bewußt Strategien menschlichen 
Denkens dient — und in ihrer Logik der Realität gerecht wird. 
LOGO ersetzt BASIC, sagen Pädagogen und Mathematiker. 
LOGO kommt dem übergreifenden, assoziativen Denken 
entgegen. BASIC dagegen ist ein Setzkasten von Logik Buch¬ 
staben. 

DANIEL WATT ,,, hat im Team von Seymour Papert 
gearbeitet und ein Buch geschrieben, das voller Bilder seine 
Erlebnisse mit Kindern am Computer wiedergibt Ein hochwer¬ 
tiges Textbuch für LOGO-Kurse, Ein Buch für Lehrer, die nach 
einem bereits von Schulbehörden empfohlenen LOGO-Kurs- 
buch suchen. 


Ein Buch für APPLE H C-64, IBM PC, ATARI bis 520 ST, TI-99 und Schneider CPCs. 
3S4 Seiten, A4, DM 59,- 


“Buch des Jahres 1983” 
in den USA 


ta-ui 

te-wi Verlag GmbH 
Theo-Prosel-Wcg 1 
8000 München 40 
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CemmAoft C-fA' 




Ein Buch für Kinder und ihre Lehrer - ein kindgemäßes Buch für die erste Be¬ 
gegnung mit Computern, ihren Eigen Willigkeiten, und ihren unerschöpflichen 
Möglichkeiten. Ein Buch zu unserer Gegenwart und zur Zukunft unserer Kinder 
„Computer für Kinder” richtet sich an Kinder im Alter von 8 bis 13 Jahreru für 
deren Interesse an Computern keines der unzähligen Computer-Bücher ge¬ 
schrieben wurde. 

„Computer für Kinder” ist ganz auf Kinder eingestellt und be¬ 
schäftigt sich unterhaltsam und leicht verständlich mit folgenden 
Themen: 

Wie arbeite« Computer 
Wie funktioniert mein Computer 

Wie programmiert man mit einfachen Flußdiagrammen 
Wie kann ich BASIC leicht verstehen 
Programme aufbauen mit Befehlen 
Farbige Graphiken entwerfen 
Erklärung von Computer-Begriffen 

Saily Greenwood Larson war Kindergärtneria ehe sie 
selbst Computern begegnete und zwischen den Welten 
von Kindern und Computern zu vermitteln begann. 

Computer für Kinder, A4 quer, Fadenheftung, 
über 100 Seiten, je Ausgabe DM 29,80 
vorliegend für; VC 20, C 64, Apple II, Atari 
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DM 29.80 
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9592 — 

<XF> 

11040 ENDPROC 

<UP> 

9593 REM — Player Missiles nach — 

<OC> 

11100 — 

<JH> 

9594 REM - links bewegen - 

<WZ> 

11102 REM — Bild speichern und — 

<HU> 

9599 — 

<YH> 

11103 REM “ Parameter anzeigen — 

<UN> 

9600 PRGC PMLEFT 

<YK> 

11104 — 

<KS> 

9620 IF PMNR=0 

<VS> 

11110 PROC BILDSPEICHERN 

<HD> 

9622 X0PaB=X0PaS-l 

<UP> 

11120 MOVE DPEEKC8S),ADRtSCREEN#>,7680 

<AB> 

7624 IF X0POS<44 THEN X0POS=44 

<FR> 

11130 ENDPROC 

<UD> 

9626 POKE 53248,X0POS 

<OZ> 

15000 PROC PARAMANZ 

<PR> 

9628 EKDIF 

<UM> 

15010 CLS 

<DD> 

9630 IF PnNR=l 

<WJ> 

15020 POSITION 9,3:? “PARAMETER-^ANZEIGEN 


9632 X1P0S=X1P0S-1 

<VM> 


<TP> 

9634 IF X1P0S<43 THEN X1PÜS=43 

<FI> 

15030 POSITION 9,4;? "---- 


9636 POKE 53249,XIPOS 

<QJ> 

■1 

<CC> 

9638 ENDIF 

<UP> 

15040 POSITION 3,7;? "Linker^Rand*^^";XM 


9790 ENDPROC 

<PZ> 

IN 

<0Z> 

9792 — 

<XJ> ‘ 

15050 POSITION 3,9:? " Recht er-i.Rand^=*" ; X 


9793 REM - Player Missiles nach -* 

<OG> 

MAX 

<RD> 

9794 REM - rechts bewegen 

<eM> 

15060 POSITION 3,11;? "Unterer^Rand*=^"; 


9799 — 

<YL> 

YMAX 

<GJ> 

9800 PROC PMRIGHT 

<ZV> 

15070 POSITION 3,13:? "Oberer*Rand*=*”;Y 


9820 IF PMNR-0 

<VW> 

MIN 

<HX> 

9922 XQPOS=X0POS+1 

<TL> 

15000 POSITION 3,15:? "Tiefe*=^";TMAX 

<JY> 

9824 IF X0POS>199 THEN X0POS=199 

<XE> 

15100 GET EIN 

<LG> 

9326 POKE 53243,XePOS 

<PD> 

15110 ENDPROC 

<U0> 

9828 ENDIF 

<UQ> 

15190 — 

<KZ> 

9330 IF PMNR=1 

<WN> 

15200 REM - Fehlerbehandlung “ 

<ZG> 

9S32 XlPOS^XlPOS+1 

<UI> 

15210 — 

<JW> 

9834 IF XXPOS>198 THEN X1PQS=19S 

<WT> ' 

20008 REM FEHLERROUTINE 

<ND> 

9836 POKE 53249,XIPQS 

<QN> 

20810 ? ^‘CESC CTL 21" 

<DF> ' 

9838 ENDIF 

<UT> 

28015 POSITION 3,18:7 '*FEHLER*NR-ERR; 


9990 ENDPROC 

<QD> 

"ST^AUFGETRETEN" 

<0H> 

10000 — 

<JC> 

20017 POSITION 3,12:? "ZEILEN^NR-:ERL 

<ZA> 

10002 REM - Variablen und Player — 

<FN> 

28820 IF ERR=170 THEN POSITION 3,20:? "D 


10003 REM - Missiles de+inieren — 

<KZ> 

ATEI*NICHT^VORHANDEN“ 

<SZ> 

10004 — 

<JW> 

20030 IF ERR=162 THEN POSITION 3,20:? "D 


10809 PROC DECLARE 

<VM> 

ISKETTE*IST^VOLL" 

<EJ> 

18810 DIM FILE^t20),DAT$(20),SCREEN^C76a 
0) ,LEER# 1256) ,Ltl#C10) ,RÜ# C10> ,E#C20} 

<W2> 

28040 IF ERR=^164 THEN POSITION 3,20;? "D 
ATE I -^N T CHT * I N^ORDNUND " 

<IG> 

10020 CaL0=40iCOL1=202:C0L2-148;COL3=0 

<AJ> 

20050 IF £RR=169 THEN POSITION 3,2ß:? "D 


10030 LEER#(1)="CCTL iLEER#(256)IDT 


IRECTORY*IBT^VDLL" 

<QF> 

L ,>":LEER#(2)=LEER# 

<IW> 

28060 IF £RR=i60 THEN POSITION 3,20:? "D 


10040 LO#=”tCTL ,1-tCTL Ol ICTL HXCTL H> I 


ISKElTENLAUFWERK^NICHT^BEKANNT" 

<SV> 

CTL HIICTL Hl^CTL Hl ICTL , 1 : RU#^" ^CTL , 
ICCTL AXCTL AICCTL Al iCTL Al <CTL Al ^CTL 


20070 IF ERR=12S THEN POSITION 3,20:? "ü 
EBERTRAGUNG*UNTERBROCHEN" 

<VF> 

OlICTL ,1” 

<EZ> 

20080 IF ERR=167 THEN POSITION 3,20:? "D 


10100 ENDPRGC 

<UA> 

ATEIST*5CHREIBGESCHUETZT" 

<ZX> 

11000 — 

<JE> 

20090 IF ERR=144 THEN POSITION 3,20:? "D 


11082 REM — Apfelßiaentnchen auf — 

<GF> 

ISKETTE^IST*SCHREIBGESeHüET ZT" 

<TI> 

11003 REM — dem Bildschirm dar- — 

<CJ> 

20100 IF ERR=13S THEN POSITION 3,20:? "G 


11004 REM - stellen 

<UC> 

ERAET*NICHT^ANSPRECHBAR" 

<JT> 

11005 — 

<KD> 

20110 IF ERR^165 THEN POSITION 3,20:? "F 


11010 PROC BILDHOLEN 

<IX> 

ALSCHER*DATEINAME“ 

<AB> 

11015 GRAPHICS 15+16 

<YR> 

20115 POSITION 3,22:? "WEITEREMIT^RETURN 


11020 MOVE ADR(SCREEN#),DPEEKtGa>,7680 

<1F> 

1 r* 

<WP> 

11038 POKE 70S,COL8:PQKE 709,COL1:POKE 7 


20120 GET EIN:TRAP 40000 

<AU> 

10,COL2:POKE 712,COL3 

<IB> 

20130 GOTO 95 

<WZ> 

Turbo-Baslc XL-Lisling zu »Apfelmännchen« (Schluß) 





f ACH, QER SPieiT WIEPfl?, 
5‘{H/FF’£VE)?ieWJ(rEN] 

M>T OEM WEUEW 
PECHUEß IM 
LNEßEMl^AÜM. 
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TURBO-BASIC 


Gmfikspielereien in 
Tiirbo-BasicXL 


Mit einfachen Mitteln lassen 
sich unter Turbo-Basic XL 
schöne Grafikeffekte erzeugen. 

ie neuen Befehle von Turbo- 
Basic XL eröffnen dem Pro¬ 
grammierer eine Reihe zusätz¬ 
licher Möglichkeiten, die unter dem nor¬ 
malen Atari-Basic nur mit Hilfe von 
Assembler-Unterroutinen realisierbar 
waren. So erlaubt auch der Turbo-Ba- 
sic-Befehl »MOVE«, der Speicherberei¬ 
che blitzschnell verschieben kann, für 
Basic völlig neue Programmtechniken. 
Anhand eines Grafikbildes zeigt das 
Programm »Turbo-Basic-Grafikdemo«, 
wie sich die Daten des Bildschirmspei¬ 
chers schnell und einfach verschieben 
oder speichern lassen. 

Das Programm ist in einzelne Proze¬ 
duren unterteilt, die am Anfang aufgeru¬ 
fen werden. Mit Ausnahme der Proze¬ 
duren »DECLARE« und »DEMO« spielt 
die Reihenfolge des Aufrufs keine Rolle. 
Die Routinen, die an der Grafik Verände¬ 
rungen vornehmen, sind in sich abge¬ 
schlossen und stellen vor ihrem Ende 
stets den ursprünglichen Zustand des 
Bildes her. Die Prozeduren bewirken im 
einzelnen folgendes: 

Prozedur »DECLARE« 

Initialisieren und dimensionieren der 
benötigten Stringvariablen. 

Prozedur »DEMO« 

Erzeugen einer Spirale im Grafik 
15-F6rmat. An diesem Bild werden alle 
weiteren Manipulationen vorgenom¬ 
men. Hier kann man natürlich sowohl 
andere Grafiken erzeugen als auch ein 
Bild von Diskette laden. 


Prozedur »TEXTEIN« 

Einblenden eines Textes in das Gra¬ 
fikbild. Der dabei überschriebene Teil 
der Grafik wird zuvor in einem String 
gespeichert. So ist sichergestellt, daß 
man den ursprünglichen Zustand des 
Bildes wiederherstellen kann. 
Prozedur »XMIRROR« 

Spiegeln der Grafik um die X-Achse. 
Das Bild wird also auf den Kopf gestellt. 
Prozedur »XKLAPPT« 

Spiegeln der oberen Hälfte des Bild¬ 
schirms nach unten. 

Prozedur »XKLAPPB« 

Hierbei handelt es sich im Prinzip um 
die gleiche Routine wie XKLAPPT. Es 
wird lediglich die untere Hälfte nach 
oben gespiegelt. 

Prozedur »XCOPYT« 

Kopieren der oberen Bildschirmhälfte 
nach unten. 

Prozedur »XCOPYB« 

Untere Hälfte des Bildes nach oben 
kopieren. 


Prozedur »YCOPYL« 

Die linke Hälfte des Bildschirms nach 
rechts kopieren. 

Prozedur »YCOPYR« 

Die rechte Bildschirmhälfte nach links 
kopieren. 

Prozedur »PÜTPIC« 

Ablegen des Bildschirminhalts in 
einem String. 

Prozedur »GETPIC« 

Der Inhalt eines Strings wird auf den 
Bildschirm geschrieben. 

Prozedur »EFFEKTE« 

Die Inhalte der Farbregister 708,709 
und 710 werden ausgetauscht. 
Dadurch entsteht ein schöner Farb- 
effekt. 

Alle Werte in den beschriebenen Pro¬ 
zeduren beziehen sich übrigens auf ein 
Bild in Grafikstufe 15. Selbstverständ¬ 
lich können die Effekte auch in allen 
anderen Grafikstufen verwendet wer¬ 
den. Man muß dann lediglich die Größe 
des Bildschirmspeichers sowie die 
Anzahl der benötigten Byte pro Zeile 
entsprechend anpassen. In Grafikstufe 
15 errechnet sich die Bildschirmgröße 
beispielsweise aus 192 Zeilen und 40 
Byte pro Zeile. 192 multipliziert mit 40 
ergibt also 7680. 

(Wolfgang Czemy/wb) 


PROGRAMM-STECKBRIEF 

Programmname 

Graf ik'SpIeiere ien 

Programmtyp 

Grafik 

Programmiersprache 

Turbo-Basic XL 

Programmlänge 

7939 Byte 

tür Computer 

Atari 800 XU130 XE 

zusätzliche Hardware 

Diskettenlaufwe rk 

EingabehiJfe 

PrCffsummer 

Bemerkung 

Effektvolle Grafikmanipulation 

üeserservice 

Diskette SPIELE.TUR 
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TURBO-BASiC 


100 REM SPIELEREIEN MIT DEM <WT> 

110 REM MOVE BEFEHL IN TURBO BASIC <2D> 

115 REM —-- <0D> 

120 REM VON WOLFGANG CZERNY <XN> 

130 — <JI> 

160 EXEC DECLARE <LK> 

170 EXEC DEMO <WV> 

175 DO <FC> 

177 EXEC TEXTEIN <IQ> 

180 EXEC XKLAPPT <KP> 

1?0 EXEC XKLAPPB <ZP> 

200 EXEC XMIRROR <RG> 

210 EXEC XCOPYT <XB> 

220 EXEC XCQPYB <MT> 

230 EXEC VCGPYL ■ <SZ> 

240 EXEC YCOPYR <WN> 

250 LDDP <CH> ^ 

500 END <XQ> 

999 — <LD> 

1000 PROC DECLARE <DD> 

1010 DIM C8000),B^<S00O>,LEER#C800) <WC> 
1020 A#C1>=‘*-ICTL ,l":A#(8000)="tCTL 
A#(2>^A# <HV> 

1025 B#(1)="£CTL ,>"=B#^S000>=”^CTL 
B#C2>=B# <LX> 

1030 LEER#<1) ="<:CTL , J";LEER# t800) =" CCTL 

, 1: LEER# (2) =^LEER# < JV > 

1040 ENDPROC <O0> 

1090 — <WF> 

2000 PROC TEXTEIN ' <BK> 

2010 EXEC PUTPIC <YR> 

2020 MOVE DPEEK(88)+3840,ADR(B#),800 <LS> 

2030 MOVE ADR(LEER#),DPEEK(SB)+3840,800 <LF> 
2040 TEXT 0,98, “DIES*IST^1N“ <IN> 

2050 TEXT 0,107,"TEXTFENSTER” <JU> 

2060 PAUSE 400 <WE> 

2070 MOVE ADR(B#),DPEEKC8e)+3840,800 <SF> 

2080 PAUSE 400 <WK> 

2090 EXEC 6ETPIC <OK> 

2100 ENDPROC <0F> 

2110 — <VK> 

5000 PROC XMIRROR <MD> 

5010 FOR J=1 TO 10 <DI> 

5020 EXEC PUTPIC <YX> 

5030 FOR 1=7680 TO 0 STEP -^40 <PX> 

5040 MOVE ADR(A#>+1-40,DPEEK(88)+7680-1, 

40 <LG> 

5050 NEXT I <FI> 

5060 NEXT 3 <FW> 

5070 PAUSE 500 <WW> 

5075 EXEC BETPIC <PB> 

5080 ENDPROC <PE> 

5090 — <WJ> 

6000 PROC XKLAPPT <EJ> 

6020 EXEC PUTPIC <YY> 

6030 FOR 1=3840 TO 0 STEP -40 <MY> 

6040 MOVE ADR<A#)+I-40,DPEEKCS8)+7680-1, 

40 <LH> 

6050 NEXT I <FJ> 

6070 EXEC EFFEKTE <FT> 

6080 EXEC GETPIC <0L> 

6090 ENDPROC <PI> 

6099 — <XU> 

7000 PROC XKLAPPB <S0> 

7020 EXEC PUTPIC <YZ> 

7030 FOR 1=7630 TO 3840 STEP -40 <C0> 

7040 MOVE ADR CA#)+1-40,DPEEK(88)+7680-1, 

40 <LI> 

7050 NEXT I <FK> 

7070 EXEC EFFEKTE <FU> 

7080 EXEC GETPIC <0M> 

7090 ENDPROC <PJ> 


7099 — <XV> 

8000 PROC XCOFVt <FB> 

8020 EXEC PUTPIC <2A> 

8030 FOR 1=0 TO 3840 STEP 40 <NH> 

8040 MOVE ADR CA#)+I,DPEEK(Sa>+3800+1,40 <KF> 
8050 NEXT 1 <FL> 

8060 PAUSE 500 <WW> 

8070 EXEC GETPIC <0K> 

8080 ENDPROC <PH> 

3090 — <WM> 

9000 PROC XCDPYB <eA> 

9020 EXEC PUTPIC <ZB> 

9030 FOR 1=3840 TO 7680 STEP 40 <AS> 

9040 MOVE ADR(A#)+I,DPEEK(88)-3840+1,40 <RQ> 
9050 NEXT I <FM> 

9060 PAUSE 500 <WX> 

9070 EXEC GETPIC <OL> 

9080 ENDPROC <PI> 

9999 — <YP> 

10000 PROC YCOPYL <AH> 

10020 EXEC PUTPIC <NV> 

10030 FOR 1=0 TO 191 <IZ> 

10040 MOVE DPEEKCSS)+1*40,DPEEK<SS>+1*40 
+20,20 <UJ> 

10050 NEXT I <6D> 

10060 PAUSE 300 <BY> 

10070 EXEC GETPIC <CL> 

10080 ENDPROC <VD> 

10099 — <MF> 

10100 PROC YCOPYR <EI> 

10120 EXEC PUTPIC <NY> 

10130 FOR 1=0 TO 191 <JC> 

10140 MOVE DPEEK(88)+1*40+20,DPEEKCSS)+I 
*40,20 <LX> 

10150 NEXT I <GG> 

10160 PAUSE 300 <CB> 

10170 EXEC GETPIC <CO> 

101S0 ENDPROC <VG> 

10199 — <MI> 

11000 PROC GETPIC <BA> 

11010 MOVE ADR(A#),DPEEK(88),7680 <SR> 

11020 ENDPROC <UH> 

11999 — <NI> 

12000 PROC PUTPIC <SG> 

12010 MOVE DPEEKCBS),ADR CA#>,7680 <EJ> 

12020 ENDPROC < UJ > 

13000 PROC EFFEKTE <ZZ> 

13010 POKE 764,255 <RH> 

13020 REFEAT <HM> 

13030 POKE 708,403POKE 709,202 <2J> 

13040 POKE 710,1485PAUSE 5 <VD> 

13050 POKE 708,202=POKE 709,149 <UJ> 

13060 POKE 710,40=PAUSE 5 <NS> 

13070 POKE 708,148=POKE 709,40 <KU> 

13080 POKE 710,202=PAUSE 5 <PF> 

13090 UNTIL PEEK(764) 0255 <DJ> 

13100 ENDPROC <UG> 

13110 — <ap> 

15000 PROC DEMO <PW> 

15010 X1=80;V1=70=0=0=DES <IA> 

15020 GRAPHICS 31:C=20 <CS> 

15040 FOR 1=1 TO 1000 STEP 5 <0D> 

15050 Q=Q+1:IF Q>3.5 THEN Q=1 <JL> 

15060 COLÜR Q:R=I/10:T=I <FU> 

15070 X=R*COS<T):Y=R*SIN(T) <CC> 

15080 IF Y+YIM51 THEN 15140 <BE> 

15090 PLOT X+XI,Y+YI <WW> 

15100 X=CI+C)/16*COS(I+C+90) <AE> 

15110 Y=CI+C)/16*SlN(I+C+70> <DL> 

15120 DRAWTO X+XI,Y+VI <JT> 

15130 NEXT I <61 > 

15140 ENDPROC <VA> 


Listing zu »Turbo-Basic-Grafikdemo« 
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TURBO-BASIC 


Mehr Tempo für Player Missiles 


ln normalem Basic ist die Positionierung von Play- 
ern und Missiles eine zeitaufwendige Ange¬ 
legenheit, in TurboBasic XL dagegen nicht 

■ sich schon einmai mit der Player-Missile-Grafik 

Atari-Computer auseinandergesetzt hat, der 
w » weiß, daß die horizontale Verschiebung recht ein¬ 
fach ist. Die vertikale Positionierung hingegen gestaltet sich 
schon wesentlich aufwendiger. Das Programm »PMMOVE« 
demonstriert, wie man den MOVE-Befehl in Verbindung mit 
der Player-Missile-Grafik sinnvoll einsetzen kann. Die Aus- 
v/ahl, welchen Player man bewegen möchte, erfolgt mit den 
Tasten 1 bis 4, Und hier eine kurze Programmbeschreibung; 
Prozedur »DECLARE« 

Hier werden die Stringvariablen dimensioniert und vier 
Strings mit den Werten für die verschiedenen Player verse¬ 
hen. Die Höhe jedes Players beträgt in diesem Fall acht Zei¬ 
len. Ober- und unterhalb ist jeweils eine Leerzeile hinzuge¬ 
fügt, damit beim Verschieben der gdte Player nicht jedesmal 
extra gelöscht werden muß. 

Prozedur »INIT« 

Hier werden die Basiswerte für die Player-Missile-Erzeu- 
gung festgelegt. Zudem wird der Speicherbereich der Player 
gelöscht. Auch diese Maßnahme wird mit Hilfe des MOVE- 


Befehls durchgeführt. Die Anfangspositionen der vier Player 
sind durch die Felder X() und Y(} festgelegt. 

Prozedur »PIVI-BAUEN« 

Die Strings, die für das Aussehen der Player verantwortlich 
sind, werden durch den MOVE-Befehl in die entsprechenden 
Speicherbereiche verlegt. Es folgt dann die Fixierung der 
horizontalen Positionen. 

(Wolfgang Czerny/wb) 


PROGRAMM-STECKBRIEF 

Progfammname 

P layer/M issile- Mover 

Programmtyp 

Utility 

Program m ierspracJie 

Turbo Basic XL 

Programm länge 

2372 Byte 

für Computer 

800 XLyi30 XE 

zusätzliche Hardware 

keine 

Eingabehilfe 

AMPEL 

Bemerkung 

Das Programm zeigt, wie man mit den 
speziellen Turbo-Basic-Befehlen Player 
Missiles behandeln kann 

Leserservice 

Diskette (PMMOVE.TUR) 


100 REK PLAYER/MISSLE STEUERUN6 


<RV> 

10110 

FDR 1=1 TO 10 

<RA> 

llß REM - IM TÜREÜ-BASIC 


<KB> 

10120 

READ W;L00K2^CI,I)=CHRSCW) 

<RX> 

120 REM 


<AM> 

10130 

NEXT I 

<FY> 

130 REM von Ual^gang Czerny 


<WV> 

10140 

FOR 1=1 Tü 10 

<RM> 

140 REM 


<AQ> 

10150 

READ Ws LOOK3$^ (1,1) =CHRS CW> 

<TB> 

145 — 


<JZ> 

10160 

NEXT 1 

<eK> 

150 EXEC DECLARE 


<Lr> 

10170 

FOR 1=1 TO 10 

<RY> 

155 GRAPHICS 31 


<XC> 

10100 

READ L0aK4S(1,1)=CHR^(W) 

<UF> 

160 EXEC IMIT 


<DD> 

10190 

NEXT I 

<GW> 

170 EXEC PM_BAUEN 


<CD> 

10500 

REM LOOKl 

<IT> 

1000 DO 


<TM> 

10510 

DATA*0,1,2,4,8,144,224,224,240,0 

<WO> 

1010 REPEAT 


<EC> 

10520 

REM L00K2 

<JQ> 

1020 GET EIN 


<IF> 

10530 

DATA*0,240,224,224,144,8,4,2,1,0 

<RB> 

1030 UNTIL (EIN>4S AND EIN<53) OR 

E1N=42 


10540 

REM L00K3 

<KN> 

QR EIN=43 OR EIN=45 OR EIN=61 


<DI> 

10550 

DATA-.0,128,64,32,16,9,7,7,15,0 

<ZL> 

1040 IF EIN>48 AND EIN<53 THEN NR= 

EIN-43 

<QA> 

10560 

REM LOOK4 

<LK> 

1050 IF EIN^42 THEN X(NR)=X(NR)+1 


<NO> 

10570 

DATA^0,15,7,7,9,16,32,64,128,0 

<BV> 

1060 IF EIN=43 THEN X(NR)=X(NR)-1 


<QR> 

10990 

ENDPROC 

<WI> 

1070 IF EIN=45 THEN YCNR)(NR>-1 


<TS> 

10999 

— 

<NS> 

1080 IF EIN^61 THEN Y(NR)=Y(NR)+1 


<QF> 

11000 

PROC iNlT 

<XC> 

10^?0 IF Y (NR) >255 THEN Y(NR)=0 


<MP> 

11010 

PMB=PEEK(106)-40= POKE 54279,PMB 

<RL> 

1100 IF Y(NR)<fl THEN Y(NR)^255 


<C0> 

11020 

PMB=PMB*256 = NR=1 

<BU> 

1110 IF X(NR)>255 THEN X(NR)=0 


<KM> 

11030 

POKE 559,62:REM SINGLE RES. 

<YC> 

1120 IF X(NR)<0 THEN X(NR)=255 


<BP> 

11040 

FOR 1=53256 TO 532S9 

<PR> 

1130 POKE 53247+NR,XtNR) 


<VQ> 

11050 

PmCE 1,0 

<VK> 

1140 IF NR=1 THEN MQVE ADR(COOKIS> 

,PMB+1 


11060 

NEXT I 

<BJ> 

024+Y(l),10 


<HX> 

11070 

FOR 1=704 TO 707 

<wv> 

1150 IF NR=2 THEN MOVE ADR<L00K2*) 

,PME+1 


iioeo 

POKE 1,255 

<ID> 

2B0+Y(2),10 


<RT> 

11090 

NEXT I 

<GV> 

1160 IF NR=3 THEN MOVE ADR(L00K3$) 

,PMB+1 


11100 

FOR 1=1024 TO 1792 STEP 256 

<ej> 

536+Y(3),10 


<BY> 

11110 

MOVE ADR(LEER$),PMB+I,256 

<0A> 

1170 IF NR=4 THEN MOVE ADR(L□□K4^:> 

,PME+1 


11120 

NEXT I 

<FW> 

792+Y(4),10 


<LU> 

11140 

X C1)=50:Y(1)=5O: X(2)=60 

<0Q> 

2000 LOOP 


<xv> 

11150 

Y<2)=60:X(3)=70:Y(3)=70 

<VB> 

2010 END 


<PT> 

11160 

X(4)=80=Y(4>=80 

<JR> 

2099 — 


<XQ> 

11190 

ENDPROC 

<VM> 

10000 PROC DECLARE 


<TT> 

11199 

— 

<MK> 

10010 DIM Y<4),X(4) 


<AW> 

12000 

PROC PH_BAUEN 

<TS> 

10030 DIM LOQK1$(10),LOOK2$C10) 


<FC> 

12010 

MOVE ADR(LOOKIS),PMB+1024+Y(1),10 

<XO> 

10040 DIM LOOK3^(10) ,LOOK4^:(10) 


<IK> 

12020 

MOVE ADR(L00K2S),PMB+12S0+V(2),10 

<EF> 

10050 DIM LEERS(256) 


<CB> 

12030 

MOVE ADR(L00K3S),PMB+1535+Y(3),10 

<KA> 

10060 POKE 730,1 


<UF> 

12040 

MOVE ADR(L00K4S >,PMB+1792+Y(4) ,10 

<RW> 

10070 RESTORE 


<D0> 

12050 

FOR 1=1 TO 4 

<KR> 

10080 FOR 1=1 TO 10 


<RZ> 

12060 

POKE 53247+I,XCI) 

<ZR> 

10090 READ W;L00K1^(I,I)=CHR^<W) 


<SE> 

12070 

NEXT I 

<GP> 

10100 NEXT I 


<EM> 

12080 

POKE 53277,3 

<QY> 

Programm zur Player-Missile-Steuerung (Turbo-Basic XL) 

12090 

ENDPROC 

<VL> 
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TURBO-BASIC 


Daten 

komprimiert 

gespeichert 

Wer Speicherplatz auf Diskette sparen möchte, 
der kann in Turb(>Casic XL zum Speichern und 
Laden von numerischen Daten auch die Befehle 
»%PUT« und »%GET« verwenden. 


Basic- 

Befehl 

Ausf ührnngszeiten in Sekunden 

Benötigte 

Sektoren 

Erweitertes 

tOSO’Laufweri^ 

Normales 

1050-Laufwerk 

Atari- 

3lO'Lauhrtrerk 

Mit 

Verify 

Ohne 

Verify 

Mit ! 

Verify 

Ohne 

Verify 

Mit 

Verify 

Ohne I 

Verify 

PRINT 

32.74 

27.48 

5S.22 

35.32 

56.22 I 

34.02 

104 

INPUT 

21.2 

20.68 

34.48 

34.34 

32.43 

32.48 

%PUT 

19.34 

16.68 

23.98 

17.64 

27-30 

16.50 

43 

%GET 

11.42 

11.86 

16.28 

16.12 

15,26 

15.26 


Tabelle mit den Ausführungszeiten unter Verwendung der 
verschiedenen Befehle, mit denen sich Daten speichern und 
laden lassen. 


as Atari-Basic kennt zum Speichern und Laden von 
Daten mehrere Anweisungen. Zum Schreiben be¬ 
nutzt man die Befehle PRINT und PUT, zum Lesen die 
Befehle INPUT und GET. Unter Turbo-Basic XL allerdings ver¬ 
fügt man neben den Anweisungen BPUT und BGET, die für 
die Blockspeicherung zuständig sind, auch über die Befehle 
%PUT und %GET. 

In diesem Fall sollen jedoch nur diejenigen Befehle 
betrachtet werden, mit denen man Gleitkommazahlen auf 
Diskette speichert oder von Diskette lädt. Wie das Listing 
zeigt, kann man dazu die Befehle PRINT und INPUT bezie¬ 
hungsweise %PUT und %GET verwenden. Diese beiden 
Befehlspaare führen zwar dieselbe Operation aus, gehen 
dabei aber unterschiedliche Wege. Speichert man eine Gleit¬ 
kommazahl mit Hilfe des PRINT-Befehls, so benötigt jede Zahl 
8 Byte Speicherplatz auf Diskette Verwendet man hingegen 
für denselben Vorgang den %PUT-Befehl, benötigt eine 
Gleitkommazahl nur mehr 6 Byte Speicherplatz. 

Im Listing werden nun 1 000 Zufallszahlen in einem Feld 
abgelegt und auf die beiden verschiedenen Methoden auf 
Diskette gespeichert. Anschließend laden wir sie wieder. 
Wie man der Tabelle entnehmen kann, spart man bei der Spei¬ 
cherung von nur 1 000 Zahlen mit den %PUT- und %GET- 
Befehlen immerhin 56 Sektoren auf Diskette. Das sind rund 
6,8 KByte Es versteht sich, daß gespeicherte Zahlen jeweils 
nur von dem äquivalenten Lese-Befehl gelesen werden 
können. 

Neben dem geringeren Speicherbedarf hat die Verwen¬ 
dung von %PUT und %GET auch noch einen weiteren Vor¬ 
teil. Die benötigten Schreib- und Lesezeiten verringern sich 
um eh«a 50 Prozent. Die genauen Zeiten, sind in der Tabelle 
festgehalten. Hierbei wurden übrigens drei verschiedene 
Disketten-Laufwerke verwendet. Ein Atari-810-Laufwerk, 
das neuere 1050-Laufwerk und ein aufgerüstetes 1050- 
Laufwerk (wie im Artikel »Rasende Daten« in diesem Heft 
beschrieben). 

{Wolfgang Czerny/wb) 


PROGRAMM-STECKBRIEF 

Programmname 

%PUT- und %GET-Demo 

Programmtyp 

Demo 

P rog rammlersprache 

Turbo-Basic XL 

Programmlänge 

1008 Byte 

für Computer 

aile 

zusätzliche Hardware 

Diskettenlaufwerk 

Eingabehilte 

Prüfsummer 

Bemerkung 


Leserservtce 

Diskette (PUTGETTUR) 


1 10 - 


<YW> 

20 REM - XPUT und X6ET Demo 

<AR> 

30 REIM — von Fr^k Ostrowski — 

<YF> 

40 - 

-- 

<YZ> 

1.00 

? ”XPUT*De(nonstration“ 

<ZZ> 

110 

DIM AC1000) 

<wx> 

120 

? "Creating-i^Array” 

<DB> 

130 

FOR I-l TO 1000 

<GZ> 

140 

A(I>=RND 

<FK> 

150 

NEXT I 

<8ß> 

160 

— 

<JO> 

170 

7 “PRIMT^File“ 

<AK> 

1G0 

— 

<JS> 

190 

T^TIME 

<PG> 

200 

OPEN #1,B,0,”D:RNDTST-DAT'' 

<sx> 

210 

FOR 1=1 TO 1000 

<GW> 

220 

? #1;ACI) 

<UU> 

230 

NEXT I 

<FY> 

240 

CLOSE #1 

<LG> 

250 

? (TIME-T)/50i"-.Sekunden- 

<DC> 

260 

— 

<JP> 

270 

T=TIM£ 

<PD> 

280 

OPEN #1,4,0/'D:RNDTST-DAT" 

<RN> 

290 

FOR 1=1 TO 1000 

<Hi1> 

300 

INPUT #1,A:A(I>=A 

<RF> 

310 

NEXT I 

<FV> 

320 

CLDSE #1 

<L_D> 

330 

? "^INPUT:.^"; <TIME-T>/50; "-.Sekunden" 

<FF> 

340 

DIR "Djf^DTST.DAT" 

<MV> 

350 

DELETE D i RNDTST - DAT " 

<GX> 

360 

— 

<JQ> 

370 

7 ^^XPLrr^File" 

<BU> 

380 

—- 

<JU> 

390 

T=TIME 

<PI> 

400 

OPEN #1,8,0,"D:RNDTST.DAT" 

<S2> 

410 

FOR 1=1 TO 1000 

<GV> 

420 

yj^UT #l;Aa> 

<YN> 

430 

NEXT I 

<6A> 

440 

CLOSE #1 

<LI> 

450 

? "^"/-PUT-..;*" ; (TIME-T) /50; "-.Sekunden" 

<VJ> 

460 

— 

<JR> 

470 

T=TIME 

<PF> 

400 

OPEN #1,4,0,"D;RNDTST-DAT" 

<RP> 

490 

FOR I=l TO 1000 

<HQ> 

500 

XGET #l,A=Aa)=A 

<EB> 

510 

NEXT I 

<FX> 

520 

CLOSE #1 

<LF> 

530 

2 "-.XGET*:-" ; tTIME“T^ /50; "^Sekunden“ 

<LA> 

540 

DIR "D:RNDTST-DAT" 

<MX> 

550 

DELETE "D;RNDTST.DAT" 

<GZ> 

Listing zy »%PUT und %GET« (Turbo-Basic XL) 
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Ordnung 
muß sein 

»Wer suchet, der findet« ist das Motto vieler Pro- 
grammsammlungen. Mit »Happy-Disksorter« wird 
die Verwaltung einer Softwaresammiung zum Kin¬ 
derspiel. Sehen Sie selbst. 

E ine Programmsammlung kann so schnell wachsen, 
daß man den Überblick über seine wertvolle Software 
verliert. Dann legt man Karteikarten an, oder hält auf 
losen Zetteln fest, welche Programme sich auf welcher Dis¬ 
kette befinden. Nun, ideal scheinen diese Lösungen nicht. Da 
sich ein Computer aber auch hervorragend zur Datenspei¬ 
cherung eignet, liegt es nahe, ihm diese Aufgabe der Pro¬ 
grammverwaltung zu übertragen. Dazu benötigt man natür¬ 
lich spezielle Software. 

»Happy-Disksorter« besteht aus zwei Teilen. Erstens dem 
Maschinenspracheteil (Listing 1) mit dem Menübild und der 
geänderten Display-List, zweitens dem Hauptprogramm 
{Listing 2). Gearbeitet wird nur mit dem Hauptprogramm. 
Listing 1 wird stets hinzugeladen und liegt dann sozusagen 
im Hintergrund vor. 

Bevor Sie mit »Happy-Disksorter« arbeiten können, müs¬ 
sen beide üstings eingetippt sein. Dann laden und starten 
Sie zuerst Listing 1. Dieses Programm erzeugt das Maschi¬ 
nenfile mit dem Namen »MENU.PIC« auf Diskette Anschlie¬ 
ßend brauchen Sie nur noch Listing 2 aufzurufen und zu star¬ 
ten. Es folgt dann automatisch das File »MENU.PIC« und Sie 
gelangen in das Hauptmenü vom »Happy-Disksorter« (Bild). 
Beachten Sie, daß sich dieses File unbedingt auf der glei¬ 
chen Diskette wie das Hauptprogramm befindet. Später brau¬ 
chen Sie dann nur noch das Hauptprogramm aufzurufen, da 
das Maschinensprache-File nur einmal auf Diskette ge¬ 
schrieben werden muß. 

Befinden Sie sich einmal im Hauptmenü, können Sie schon 
die ersten Programmnamen eingeben. Die Namen dürfen 
maximal 25 Zeichen lang sein. Anschließend folgt die Frage 
nach dem Umfang des Programms in Sektoren und des Inde¬ 
xes zum schnellen Auffinden von Programmen. 

Um ins Menü des »Happy-Disksorters« zu gelangen, betä¬ 
tigt man bei der Frage nach dem Programmnamen einfach die 
RETURN-Tasta Daraufhin erscheint am linken oberen ßild- 
schirmrand ein Pfeil, den man mit den Cursortasten zu dem 
gewünschten Symbol bewegen kann. Die nochmalige Betäti¬ 
gung der RETURN-Taste führt die Funktion aus. 

Suchen 

Man gibt entweder die Eintragsnummer, mit der Jedes Pro¬ 
gramm versehen wird, oder einen unverwechselbaren Teil 
des gesuchten Programmnamens ein. Sollte ein Eintrag mit 
dem Suchbegriff übereinshmmen, wird er auf dem Bildschirm 
ausgegeben. Durch Drücken der RETU RN-Taste gelangt man 
wieder zum Ausgangsmenü zurück. 

Listen 

Die eingetragenen Namen in abfallender Reihenfolge auf 
dem Bildschirm ausgeben. Ist der Bildschirm mit Namen 
gefüllt, wird nach Betätigung der Leertaste die nächste Seite 
auf dem Bildschirm ausgegeben. Mit der ESC-Taste gelangt 
man jederzeit zurück zum Hauptmenü. Die Ausgabe eines 
bestimmten Eintrags bewirkt die RETURN-Taste. 

Sortieren 

Nach dem Index oder dem Namen sortieren. 


Eintrag löschen 

Die Auswahl der zu löschenden Daten erfolgt wie unter 
»Suchen«. Der gesuchte Programmname erscheint dann auf 
dem Bildschirm und wird durch Drücken der Taste J gelöscht. 

Diskeften-Menü 

Mit diesem Symbol gelangt man in ein weiteres Menü: 

1. Auflisten des Directorysin Laufwerk 1. Der Listvorgang läßt 
sich mitderSTARTTasteoderCONTROL-1 unterbrechen. Am 
Ende gelangt man mit einer beliebigen Taste zurück ins 
Untermenü. 

2. Speichern der im RAM-Speicher vorliegenden Programm¬ 
namen. Es genügt zur Erkennung des Dateinamens die 
ersten acht Zeichen einzugeben. Oie RETURN-Taste bringt 
den Benutzer wieder zurück ins Untermenü. 

3. Laden einer auf Diskette gespeicherten Programmliste. 
Die Eingabe erfolgt wie unter Punkt 2 beschrieben. 

4. Alle Eintragungen einer zu katalogisierenden Diskette wer¬ 
den automatisch in die im RAM-Speicher vorliegende Datei 
übernommen. Durch Drücken irgendeiner Taste, ausgenom¬ 
men 1 bis 4, gelangt man zum Hauptmenü zurück. 

Liste drucken 

Es besteht die Wahl zwischen einem zwei- und dreispaltigem 
Ausdruck. Als Drucker ist ein Epson FX80 vordefiniert. Auch 
hier gelangt man mit Betätigung irgend einer Taste zum 
Hauptmenü zurück. 

Fehlermeldungen« 

Sollte ein Fehler auftreten, springt das Programm automa¬ 
tisch ins Hauptmenü zurück. Wählt man anschließend die 
Funktion »Fehlermeldungen«, wird der Fehler auf dem Bild¬ 
schirm beschrieben. (Andreas Kubelka/wb) 

Zeile 7040 - Die Zeichen, die zwischen Anführungszeichen stehen, bewirken einen Ausdruck iiri 
ncrmalen Modus. Diese Einsteilung ist für zweispaltigen Ausdruck mit 00 Zeichen pro Zeile verant¬ 
wortlich. 

Zeile 7100 - Uimschaftung auf Ausdruck mit 132 Zeichen pro Zeiie und in drei Spalten. 

Es müssen also stets die Zeichen zwischen Anführungszeichen geändert werden. Am besten orien¬ 
tieren Sie sich gn Ihrem Df uckerhandbuch. 


PROGRAMM-STECKBRIEF 

Program mname 

Happy-Dfsksort er 

Program mtyp 

Utility 

Program m iersprache 

Atari-Basic 

Programm länge 

10034 Byte 

für Computer 

800 XU130 XE 

zusätzliche Hardware 

Dis kett eniaufwerk 

Eingabehilfe 

Prüfsummer 

Bemerkung 

Das Programm besteht aus zwei 

Teilen. Zuerst Listing 1 starten und 
anschließend üsCng 2. 

üeserservice 

Diskette (DISKSORT.BAS/ 
DISKMENU-BAS) 



lür 

a 

M ?J 

Hr, »> Prosrapwt 

<<< 


5«k 

Xn 

MJ. »ane i^L 



•12 

12 

M2 POS 



•35 

mtr 

PW 



•42 

mk 

ftüTORUH 
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MS P0P 



•35 

mmr 

M6 RtfTORftii 



•?• 

R» 

M7 STRATECO 



145 





•75 

RR 

M9 msmren 
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RR 
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RR 
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•15 mmu 
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Das ^Kappy^Disksorter«-Menü 
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Zelle 

Beschreibung 

10 Ms 200 

Initialisterung 

300 bis 390 

Eingabe des Namens mit Anzahl der Sektoren und dem 

Index 

400 bis 440 

MenO-^swahl 

1000 bis 1050 

Auflisten der Namen 

1500 bi^ 1510 

Suchen eines Namens aus der Liste 

2000 bis 21T0 

Name In der gesamten Liste suchen 

2500 bis 2510 

Eingabe ctes gesuchten Namens 

3000 

Parameter setzen für Listen m abfallender Reihenfolge 

4000 bis 4040 

Sortierfoüttne 

5000 bis 5200 

Name löschen 

6000 bis 6050 

Disketten-Untermenü 

6100 bis 6140 

Schreiben des Directorys 

6200 

Bngabe des Rtenamens 

6410 bis 6440 

Liste abspeichem/laden 

6500 bis 6630 

Übernahme des Directorys in die Liste 

7000 bis 7130 

Druckeraus^e 

7400 

Name In Kanal D: schreiben 

7600 bis 7510 

Namennummer ln Kanal D: schreiben 

7600 

Überschrift In Kanal D: schreiben 

8000 bis 9200 

Fehlermeldung 


Programmbe&chreibung 


Emsprufigadressen für nAaschinenroutlnen 

Adresse 38786 String search 

Adresse 3S925 Bubbie Sort 


Variable 

Beschreibung 

US 

—enthält die Adresse der Wiaschinenroutine zum 

Laden und Speichern 

D$ 

—String für alle Daten 

A$ 

—Nimmt Bngaben entgegen 

P 

—Position des Pfeils beim Auflisten 

c 

—Zähler 

0 

—Enthält Kanalnummer, in den geschrieben wird 

Kanal: 0 = Bildschirm 

Kanal. 1 - Drucker 

ER 

—Fehlercode 

LD 

-“Enthalt die zu bearbeitende Position in D$ 

L 

—Länge von A$ 

l 

—Für Schfetfen und PfeilposiEon beim Menü 

A 

—Nimmt Eingaben Ober GET entgegen 

CNT 

—An^l der Daten In DS 

STA 

—Die Startnummer b^m Listen oder die aktuelle 

Position 

STÖ 

—Stopposition beim listen 

PLMI 

-Gibt die Ustrichtung an 

F 

—Gibt beim Suchen die Position an, an der die Eingabe 
gefunden wurde 

R 

—Restwert für die Druckerroutine, um die Startnummer der 
nächsten Spalte zu finden. 

S2 

—Startnummer der 2, Spalte beim Drucken von * 

3 Spalten 


VariablenEiste 


100 GRAPHICS HzPOKE 710,0: OPEN 

7"-.P0KE 752,1 <HE> 

110 POSITION 3,10:7 DISKETTE^IN^LAUFWER 

l ^ÜND RETURN " <aL> 

120 GET #l,A:CLOS£ #l = OPEN 4t 1 ,8,0, "D= MEN 
U-PIC" <02> 

130 POSITIQN 5,12=7 "SCHRE1B£*FILE-.==>^D 
:ttENU-PIC*' <HZ> 

140 TRAP 300 <KS> 

150 FOR 1^1 TO 1214 <HB> 

160 READ A:B=B+A <WO> 

170 PUT #1,A:1F 1/43=INT(I/43> THEN POKE 
404e5+P,PEEK(4048S+P >+128:P=P+1 < AI> 

188 NEXT I <GH> 

300 POSITION 10,14: IF B091431 THEN 7 

ATA^FEHLER" < RS > 

310 IF B=S^1431 THEN ? "FI LE^BESCHRIEBEN" <HH> 
320 ? :? :END <MP> 

1000 DATA-..216,104,104,133,204,104,133,20 

3.104.133.209.104.133.208.104.133.215.10 
4,133,214,104,104,133,205,104,104 <BW> 

1010 DATA*133,206,169,0,133,212,169,0,13 
3,213,162,0,160,0,177,214,224,0,208,2,13 
2,216,209,208,208,43,232,228,206 <OS> 

1020 DATA*240,22,200,196,205,240,50,72,1 

52.72.138.168.177.214.133.207.104.168.10 
4,165,207,24,144,219,72,165,204 <YU> 

1030 DATA^133,213,165,203,133,212,104,16 
2,8,224,0,240,17,224,0,240,6,160,0,177,2 
14,162,0,164,216,200,196,205,208 <DP> 

1040 DATA*186,165,208,24,101,205,133,208 
,144,2,230,209,165,203,208,6,165,204,240 
,7,198,204,198,203,24,144,156,96 <XX> 

1050 DATA*216,104,56,233,3,133,217,104,1 
33,204,184,133,203,104,133,215,104,133,2 
14,104,133,210,104,133,209,162 <RI1> 

1060 DATA*Ö,184,104,157,0,1,232,228,217, 
208,246,56,165,209,233,2,133,289,165,210 
,233,0,133,210,48,108,165,209,133 <ZO> 

1070 DATA*.211,165,210,133,212,165,204,13 
3,206,133,203,165,283,135,205,24,181,214 

,133,207,165,208,101,215,133,208 <TT> 


1080 DATA*160,0,185,0,1,190,2,1,134,218, 
190,1,1,200,200,200,132,216,168,136,177, 
285,209,207,240,12,165,218,208 
1090 DATA*4,144,16,176,46,144,44,176,10, 
200,202,208,234,164,216,196,217,208,210, 
193,211,169,255,197,211,208,6,166 
1100 DATA*212,240,11,198,212,165,283,133 
,206,165,207,24,144,172,165,213,248,4,13 
4,213,208,148,96,134,213,160,0 
1110 DATA*177,205,170,177,207,145,205,13 
8,145,207,200,196,214,208,241,240,203,0, 
0,2,0,0,0,P,8,0,0,0,120,0,0,0,0 
1120 DATA*0,62,0,0,0,0,8,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,8,0,8,8,0,2,0,0,0,16,0,0,0, 
0,56,0,0,0,0,0,54,0,0,0,0,112,0 
1130 DATA*0,0,0,0,0,8,0,0,0,8,0,0,0,0,0, 
0,0,0,2,8,0,0,32,0,0,0,0,56,0,0,0,0,15,6 
2,0,0,0,0,56,0,0,0,0,0,0,0,0,8 
1140 DATA*0,0,8,0,0,0,0,0,0,0,2,0,0,0,64 
,15,192,0,0,72,15,192,0,0,13,182,0,0,0,0 
,56,0,0,0,31,255,252,0^0,15,255 ' 

1150 DATA*248,0,0,0,0,0,0,0,0,15,128,0,0 

,128,8,64,0,0,128,8,64,0,0,15,54,240,0,0 

,127,255,248,0,0,24,31,252,0,0 

1160 DATA*13,255,176,0,0,30,0,0,0,0,0,7, 

0,8,1,0,8,64,0,1,0,8,64,0,0,13,123,172,0 

,0,127,255,248,0,0,24,31,240,0 

1170 DATA*0,15,255,240,0,0,127,128,0,0,0 

,7,226,0,0,18,1,248,127,240,2,1,248,127, 

240,0,15,8,192,0,0,12,204,192,0 

1180 DATA*0,24,31,240,0,0,13,255,176,0,0 

,255,192,0,0,0,4,32,0,0,23,1,8,0,16,4,1, 

8,0,16,0,0,8,192,0,0,12,204,192 

1190 DATA*0,0,24,31,252,0,0,15,255,240,0 

,1,243,224,0,0,0,4,32,0,0,28,1,8,0,16,8, 

1,8,0,16,0,0,8,240,0,0,12,204,192 

1200 DATA*0,0,31,255,252,0,0,13,255,176, 

0,1,225,224,0,0,0,4,63,248,0,30,63,15,25 

4,16,16,63,15,254,16,0,0,8,0,0 

1210 DATA*0,12,204,192,0,0,31,247,252,0, 

0,15,255,240,0,0,3,224,0,0,0,4,0,8,0,0,3 

3,0,2,16,0,33,0,2,16,0,0,62,0,0 


1220 DATA*0,12,204,192,0,0,31,227,252,0, 
Listing 1 zu »Happy-Dlsksorter«. Bitte mit dem Prüfsummer eingeben. 


<TP> 

<DN> 

<MW> 

<6E> 

<UV> 

<HV> 

<YS> 

<PH> 

<PY> 

<QV> 

<QX> 

<NK> 

<LF> 

<HC> 



















































































0,13,255,176,0,0,7,192^0,0,0,4,0,0,0,0,3 


3,0,2,16,0,33,0,2,16,0,0,28,0,0 <RZ> 

1230 DATA*0,12,204,192,0,0,31,193,252,0, 
0,15,255,240,0,0,15,128,0,0,0,4,0,8,0,0, 
33,255,194,16,0,33,255,194,16,0 <TX> 

1240 DATA^0,S,0,0,0,12,204,192,0,0,31,22 
7,252,0,0,15,255,240,0,0,31,0,0,0,0,4,0, 
3,0,0,32,0,67,240,0,32,0,67,240 <QU> 

1250 DATA^0,0,0,0,0,0,12,204,192,0,0,31, 
247,252,0,0,0,0,0,0,0,62,0,0,0,0,4,0,3,0 
,0,32,0,66,0,0,32,0,66,0,0,0,0 <EQ> 

1260 DATA^0,0,0,12,204,192,0,0,31,255,25 
2,0,0,127,255,254,0,0,62,7,223,124,0,4,0 
,8,0,0,32,0,66,0,0,32,0,66,0,0 <IS> 

1270 DATAv.0,0,0,0,0, 12,204,192,0,0,31,24 
7,252,0,0,76,0,6,0,0,0,6,216,96,0,7,255, 
248,0,0,32,0,126,0,0,32,0,126,0 <0S> 

1280 DATA^O,15,188,240,0,0,12,204,192,0, 
0,31,227,252,0,0,127,255,254,0,0,62,7,22 
3,124,0,0,0,0,0,0,32,0,64,0,0,32 <LG> 

1290 DATA*0,64,0,0,13,182,192,0,0,12,204 
,192,0,0,31,227,252,0,0,127,255,254,0,0, 

62,6,195,12,0,0,0,0,0,0,32,0,64 <CA> 

1300 DATA*0,0,32,0,64,0,0,15,188,192,0,0 
,12,204,192,0,0,31,227,252,0,0,127,255,2 
54,0,0,62,6,223,124,0,0,0,0,0,0 <IT> 

1310 DATA^63,255,192,0,0,63,255,192,0,0, 
13,182,192,0,0,12,204,192,0,0,31,247,252 
,0,0,127,255,254,0,0,0,0,0,0,0 <Wn> 

1320 DATA*0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

13,188,240,0,0,15,255,192,0,0,31,255,252 
,0,0,12,0,48,0,0,0,0,0,0,32,79 <BD> 

1330 DATA*195,152,15,15,15,15,15,15,15,1 
5,15,15,15,15,15,15,15,15,15,15,15,15,66 
,64,156,2,2,2,2,2,2,2,2,2,2,112 <KN> 

1340 DATA*2,112,2,2,2,2,2,2,2,2,2,2,65,1 
1,156 <!□> 

Listiog 1 zu »Happy-Dislcsorter«^ <Schtuß) 


10 OPEN tt2,4,0,’-K=*‘ <bT> 

20 US=ADRr‘>_^CTL , >^ CTL N >/tCTL B>Xh“lCT 
L P>-Z^CTL OiCCTL CI 1CTL_M>R^CTL C3htCT 
L n ^UiCTL OhC CTL m xtCTC Oh^ CTL m v^CT 
L C>h'[CTL_M>X<CTL ^CTL P>_^<CTL L> C 

CTL M> R ^CTL C> *Vd) - CCTL N> / CCTL B> CCT\_ _ 


>"):P=7 <NZ> 

40 OPEN #1,4,0,"D=MENU-PIC":I=USR<US,387 
86,1214) <YU> 

50 POKE 7O8,10:POK£ 709,I0=PQKE 710,0;PO 
KE 82,0;POKE 560,11 <DC> 

200 DIM (24000>,A#C25> <IW> 

300 TRAP 300:POKE 559^34:CL0SE #1:PQP :E 
R=PEEKt175):POKE 195,0s? "^ESC CTL <><ES 
C CTL => 1 ESC CTL =1”:LD^LEN() <AD> 

310 POKE 752,0;POKE 39977+P,2;POKE 39979 
+P , 2= ? " ^ : INPUT # 16; A$: L=LE 

N(A±) <BL> 

320 IF L=0 THEN 400 <UN> 

325 IF L<25 THEN FDR I^L+1 TD 25;A*<I,I> 

= ‘^^*';NEXT I <GC> 

327 D# (LD-*-1 , LD+25) =AS s ( LD+26, LD+30) = " 0 
00 ^^^^ <BS> 

330 POSITION 1,5;? “Sektor*#-i.INPUT 
ttl 6 ;A^;L=LEN(A^>;IF L=0 OR L>3 THEN ? *'C 
ESC CTL 2J";:G0T0 330 <IB> 

350 D$(LD+29-LEN(A^l,LD+28)-A^ < DX > 

360 POSITION 4,7:? “Indexe: 5 :INPUT #16 
;AS:IF LENCAS)<2 THEN ? "lESC CTL 2J" 5 :G 
□TG 360 <JN> 

380 (LD+29,LD+30)=<I,2) <CJ > 

390 GOTO 300 <MU> 

400 POKE 752,1:? "iESC CTL <I";I^2 <K 6 > 


üstlng 2 zu »Kappy-Disk$orter«. 

Bitte mit dem Prüfsummer eingeben. 
(Fortsetzung auf Seite 74_> 



H. P. Blomcyer-eanenslein/R. Soth 

Datenkomitiunikation und 
Ukale Compuier-NeizweTke 

2, überartwitate Auflage 
Fabruar 1985, 28^ Seiten 
Das Thema Datenkommunihaftion und 
Rechnefnetze {Telematik) wird mit zu¬ 
nehmender Computerisierung unserer 
Gesellschaft immer mtehr gn Bedeutung 
gewinnen. Wer die EntwieWung der 
Zukunft nicht verpassen will, sollte sich 
<iaher in dieses wichtige Thema recht¬ 
zeitig einarbeiten. Dazu bietet das vor- 
Tegende Buch die beste Möglichkeit. 
Von Spezialisten geschrieben und den¬ 
noch iehcht verständlich führt es in das 
komplexe Gebiet ein. Für entsprechend 
vongebüdete Lfiser wenderr auch die 
physikalischen und mathematischen 
Zusammenhänge erläutert 
MT 790 

ESBK 3-89090-07^ OM DO,- 



W. Jakobsen 

Lexikon der modemen Elektronik 

Juni 1985. 280 Seiten 
Die zweite überarbeitete uiad erweiterte 
Auflage dieses Standard-Werks bringt 
ausführliche Ertäutefungenzuca. 3000 
englischspraohigeri F^hbegriffen aus 
der Welt der allgemeinen EtektroniPt, 
Mik/oeJektronik, Computertechnik und 
Software Das deutsch-englische Stich¬ 
wortverzeichnis und die Querverweise 
zu den einzekien Stichwörtem machen 
es zum idealen Nachschlagewerk fOr 
Beruf, Ausbikdurig und htebby. 

Eest,-Nf. MT 7S2 

ISBN 3-89090-080-1 DM üZ,- 



R Rösenbeck 

Personal Computer Lexikon 

2. überarbeitete Auflage 
Oktober 1985. 200 Seiten 
Dieses luexikon mit seiriten mehr als 
1700 Stichwerten, mit gut lesbaren 
Erklärungen und Htnfergrundinfornia- 
tienen, mit emem ausgeerbeiteteri Vef- 
weisungssystem und der Gegenüber- 
steNung englischer urxi deutscher 
fächbegriffc stellt ein unentbehrliches 
Nachschlagewerk und Hilfsmittel für die 
Arbeit mit Microoomputem dar. 


BesL-Mn MT 758 
ISBN 3-89090-11*-X 


DM 32 ,- 


Maikt STMhniii-Fiwhbüeher ertialten Se b« Ititem Buchhändler. 

Markt&rechnik 


BUCHVERLAG 



M.-P. Gottlob/G. Strecker 

BTX protossionell eingesetzt 

1984. 287 Seiten 

Wer sich mit dem Gedanken ti^l, selbst 
BTX-AntHeter zu werdec, dieses neue 
Medium in irgendeiner Weise beruflich 
und geschäftlich zu nutzen, derbenötigl: 
weitergehende informatiocen. als sie ei¬ 
ne Bnführung zu geben vermag. Das da¬ 
zu nötige Wissen vemnittelt das vorlie¬ 
gende Buch. Es hilft Ihnen, völlig neue 
MögBchkeiten in Marketing und Wer¬ 
bung, bei Diensdeisturtgen. bei derlnfor- 
matiorhsdistrlbution und bei Schulungen 
zu erschließen, kurz: das neue Medium 
BTX professionell, das heiBl kostensen¬ 
kend und gewinr>bringend einzusetzen. 
• BTX professionell riutzen! 

Best.-Nr. MT 530 ___ 

ISBN 3-922120-52-0 QM 68 ,— 


Hffc-niiserstsrafl« z, 8D13 Hur kd Mbiicima 
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410 POSITION 1,1:? "^ESC ESO^ESC CTL -J 
■':GET #2, A: POSITION 1,1:? " : 1 = 1+5* CA=4 

2 AND I<37>-o*tA=43 AND I>25 <RA> 

430 IF A=155 AND (LD>0 OR 1=27 GR 1=37) 

THEN CNT=LD/30:ON <l-2>/5+l GOTO 2000,10 
00,3000,4000,5000,6000,7000,S000 < UC> 

440 GOTO 410 <Ne> 

1000 STA=CNT:STO=0:PLMI=-1 <IP> 

1010 D=0sC=D:7 "-CESC CTL <>":GOSüB 7600: 

? '*CESC CTL =J<;ESC CTL =>":POKE 3V977+P, 
n2:POKH 39979+P,112 <yN> 

1020 GOSUB 7400:7 <WK> 

1030 BTA^STA+PLNI <SX> 

1035 IF STA=STO THEN GOSüB 1100:GOTO 300 <RV> 
1040 IF PEEK<S4)=17 THEN GOSUB 1100:GOTO 
1010 <HN> 

1050 GOTO 1020 <ÖD> 

1100 POSITION 3,P+4:? CESC ESC^ ^ESC CTL 
*>":GET #2,A:IF A=32 THEN RETURN <NS> 

1103 IF A=43 OR A=42 THEN STA=STA-PLMI:S 
TO=0+ C CNT+1> * C STO=0):PLHI=-PLNI:RETURN < MN > 
1105 IF A=27 THEN 300 <AX> 

1107 IF A=155 THEN 1500 <NC> 

1108 POSITION 3,P+4:7 <NW> 

1110 P=P+1*<A=61 AND P<14)~1*CA=45 AND P 
>0)=POSITION 3,P+4:7 "CESC ESOCESC CTL 

*>" <EQ> 

1120 FOR 1=1 TO 5=P0KE 37975+1+P,2+110*C 
1=2 OR I=4>:NEXT IsGOTO 1100 <RN> 

1500 UD=0sPOSITION 3,P+4:F0R 1=0 TO 2:7 
"CESC CTL +>"; :LD=LD+10""I#(PEEK<93)-16> : 

NEXT I:LD=CLD-1>*30:? "CESC CTL <>** <Ü0> 

1505 IF LD<0 THEN 300 <IS> 


1510 POSITION 12,3:7 (LD+1,LD+25>;"CES 

C TAB>CESC TAB^CESC TAB>CESC CTL =3CESC 
CTL *5CESC CTL *JCESC CTL *JCESC CTL *>C 
ESC CTL *>”;D^(LD+26,LD+2S);"CESC CTL => 
CESC CTL =>CESC CTL +JCESC CTL +>CESC CT 
L +J(LD+27,LD+30):POSITION 0,3:GOTO 


310 <MR> 

2000 TRAF 2020:GOSUB 2500:GOTO 2030 <00> 

2020 GOSUB 2100 <XP> 

2030 STA=STA-P:IF STA<1 THEN STA=1 <YG> 

2040 STO=CNT+l:PLMI=l:GOTQ 1010 <LF> 

2100 F=USR C3Ö786,CNT,ADR(,ADR) ,30, 
LENtAS>>:lF F=0 THEN 300 <BV> 

2110 STA=CNT-F+liRETURN <MU> 

2500 ? "CESC CTL OCESC CTL =1 CESC CTL = 

> CESC TABJGebej^TerniAQderANumiiier*ein CESC 
CTL =>":? “CESC TAB5===>^''; = INPUT #16;A« 
:STA=VALCA^):IF STA<1 OR STA>CNT THEN 30 
0 <UK> 

2510 RETURN <PH> 

3000 STA=1:ST0=CNT+1:PLMI=1:G0T0 1010 <JD> 

4000 ? "CESC CTL <>" <KT> 

4010 POSITION 0,6:7 "CESC TAB>l*=>*Namen 
^sortieren CESC CTL =:^ " : 7 "CESC TABJ2^=>* 
Index^sortierenCESC CTL =>":GET #2,A:P0K 
E 559,0 <BZ> 

4020 IF A=49 THEN I=USR(38925,ADR,30 
,CNT,1,28,0,29,2,0) <20 

4030 IF A=50 THEN I=USR C38925,ADR tD«>,30 
,CNT,29,2,0,1,28,0) <VA> 

4040 POKE 559,34:GOTO 300 <SQ> 

5000 TRAF 5820:GOSUB 2500:GOTO 5030 <TQ> 

5020 GOSUB 2100 <XS> 

5030 7 "CESC CTL =>":GOSUB 7400:7 :? "CE 
SC CTL =>CESC CTL =>CESC TAB>CESC CTL 
CESC CTL *>CESC CTL *>Name^Loeschen*<J/N 
V'-_GET #2,A:IF A074 THEN 300 <FX> 

5100 IF STA=CNT THEN 5200 <XJ> 

5110 D^C5TA*30-29,CNT*30-30> =D^tSTA*30+l 
,CNT*30) <WT> 

5200 D^(CNT*30-29)="":CNT=CNT-1:GOTO 500 
0 <EG> 

6000 7 "CESC CTL OCESC CTL => CESC CTL = 

JCESC CTL =>CESC CTL =>CESC CTL =JCESC C 
TL =>CESC CTL CESC TAB:M^=>^Dii-eiztory C 
ESC CTL =>":? "CESC TAB>2^=>^SpeiehernCE 
SC CTL =:J" = 7 "CESC TAB>3^=>*LadenCESC CT 
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L =3":? "CESC TAB>4*=>*Dir-..CESC ESC J CESC 
CTL *>^Natne": 6 ET #2,A <WE> 

6040 IF A>4S THEN ON A-48 GOTO 6100,6200 
,6200,6500 <JX> 

6050 GOTO 300 <01> 

6100 OPEN ^H,6,0,"D:*.*" <i<R> 

6110 7 "CESC CTL <>":? =7 ,“Fi1enams^^Ex 

t. _^^Laenge":? , " CCTL ri> CCTL rt> CCTL M3 

CCTL M3CCTL M3CCTL M>CCTL M>CCTL M3**CCT 

L M3CCTL M3CCTL _^*CCTL t13 CCTL M3 CC 

TL MJCCTL M3CCTL M3CCTL M>" <SV> 

6120 INPUT # 1 ;AS:IF A^ (2,2) THEN 7 

:? ,A$:GET #2,A:CL0SE #1=G0T0 6000 <PT> 

6130 IF PEEK(53279)=6 THEN 6130 <BV> 

6140 POSITION 0,4:7 "CESC SHIFT DEL>":PO 
SITION 10,17:7 AS(3,10),ASCII,13),A^(15, 
17>:GOTO 6120 <AC> 

6200 POKE 752,0:7 "CESC CTL =ICESC CTL = 
>Fil 0 name^?^C CTL Y> CS^Zeichen) CCTL Y> = *" 

5 :INPUT #16;AS=P0KE 752,1:L=LEN<AS>:IF L 
=0 OR L >8 THEN 6000 <QC> 

6410 AS<11)=AS(1,L):AS(1,2)="D:":A^(3>=A 
SCll, 10 +L):AS<3+L)=".STR" <BA> 

6420 IF A=50 THEN OPEN #1,8,0,AS:7 #1;LD <KJ> 
6430 IF A=51 THEN OPEN #1,4,0,AS:INPUT # 

1; LD; DS="-.." : DS CLD-1 > =DS: DS C2> =DS <XA> 

6440 I=USR(US,ADR(DS),LD):GOTÜ 6000 <JB> 

6500 POKE 559,0:OPEN #1, 6 ,0,"D:*-*” <LB> 

6510 INPUT #1;AS:IF AS (2,2) THEN PO 

KE 559,34=CLOSE #l:GOTO 6000 <DI> 

6520 DSCLD+26,LD+28)=ASC15,17)=AS=ASC3,1 
O) : AS <9) : DS (LD+1 ,LD+ 

25)=AS:DS(LD+29)="**" <SY> 

6530 LD=LD+30:GOTO 6510 <WM> 

7000 7 "CESC CTL =>CESC CTL =>CESC CTL = 

>CESC CTL =>CESC CTL = J CESC TAE> l-,.==>*Dr 
iicke*2*SpaltenCE3C CTL =>":? "CESC TABI2 
*==>*Drucke*3*Spalten" <PH> 

7020 GET #2,A:1F A<49 OR A>S0 THEN 300 <VN> 
7030 D=1:C=0!OFEN #D,4,0,"P=":IF A=50 TH 
EN 7100 <5J> 

7040 7 #D;"CESC ESOJCCTL GOSUB 7600 

:GOSUB 7600=7 #D:7 #D <XV> 

7045 STO=INT(CCNT-0-1)/2)+l <NF> 

7050 FOR 1=1 TO CNT <TK> 

7060 STA=I:GOSUB 7400:STA=STO+I=GOSUB 74 
00:7 #D:NEXT 1:GOTO 300 <GT> 

7100 ? #D5"CESC escJ!CCTL DJ":GOSUB 7600 
:GOSUB 7680:GOSUB 7600:7 #D:? #D <AQ> 

7110 ST0=INT(CNT/3):R=CNT/3-ST0 <TN> 

7120 FOR 1=1 TO CNT:S2=I+ST0+1*(R>8) <JL> 

7130 STA=I:GOSUB 7400:STA=S2:GOSUB 7400: 

STA= S2+STO+1*(R >0.5):GOSUB 7400:7 #D:NEX 
T I <WU> 

7400 GOSUB 7500=7 #D;AS;";DS(LD-29,LD“ 

5) ; “**";DS(LD“-4,LD-2) ; ; DS(LD-1,LD) ; 

*";=RETURN <FA> 

7500 C=C+1:IF OCNT THEN 7 #D:CLDSE # 1 :G 
OTO 300 <TZ> 

7510 AS="00O":AS C 4’LEN C STRS(STA)))=STRS < 

STA):LD=STA*30 s RETURN < XI> 

7600 7 #D; "Nr-***** >>>*Programm-.<<<**^* 

k I n ; = RET URN < AV > 

8000 TRAP 9200:POKE 39982,7:POSITION 0,9 
: ? " " ; : GOSUB 900O+ER < X J > 

8002 7 :7 "CESC TAB>CESC TABJCESC TAB>CE 
SC TABiDruseke*eine*Ta^te"iGET #2,A:POKE 
39-982,2: POKE 195,0: GOTO 300 <KM> 

9000 7 "*^KEIN*FEHLER“:RETURN <SA> 

9137 7 "-..^FILE^FEHLER": RETURN <PX> 

9138 ? "^GERAET*FEHLT":RETURN <inQ> 

9144 ? "FEHLER*iri*GERAET": RETURN <BR> 

9162 7 "^DISKETTE^VOLL“:RETURN <NI> 

9163 7 "*SYSTEM^FEHL£R":RETURN <HQ> 

9165 7 "FILENAME*F£HL£R":RETURN <FX> 

9167 7 "FILE^GESCHUEZT":RETURN <EI> 

9169 7 "DIRECTORY*VOLL"=RETURN <NE> 

9170 GOTO 9165 <XH> 

9173 7 "FORMAT*SCHLECHT":RETURN <YT> 

9200 ? "-..*FEHLER^";ER:GOTO 8002 <GI> 
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Submission - 
ein Weg 
voiier 
Gefahren 

Böse Zungen behaupten, es gibt keine Heiden 
mehr. Falsch! Auf gar mancher Diskette eines 
Atari 800XL/130XE kämpfen sie für das hohe ideal 
der Freiheit. 

ur die Besten werden überleben. Unter diesem 
Motto gilt es sich zu beweisen, denn in den tiefen 
Gängen des Labyrinths im Spiel ^Submission« lauert 
der Tod mit seinen tausend Gesichtern. 

Ziel der Mission ist die Befreiung einer Frau. Der Weg zu ihr 
führt durch verschiedene Ebenen, die durch Leitern mitein¬ 
ander verbunden sind. Das Kiettem ist dabei noch das ein¬ 
fachste, aber es wäre kein Action-Spiei, gäbe es nicht vieie 
Gefahren, die einem das Leben schwermachen. Da plagt man 
sich mit Krokodilen, Spinnen und Minen, auch an Selbst¬ 
schußanlagen fehlt GS nicht. Unterwegs kann man Gold¬ 
schätze aufsammeln, für die es natürlich Punkte gibt. Pro 
gelungener Befreiungsaktion gibt es dann einen Bonus. Die 
Abwechslung kommt nicht zu kurz, denn je nach Belieben 
stehen sieben verschiedene Schwierigkeitsgrade zur Verfü¬ 
gung. Ein weiterer Pluspunkt ist die leichte Handhabung des 
Spiels. Die einzelnen Spielvarianten ändert man über die 
SELECTTasta Durch Drücken der STARTTaste ist man gleich 


mitten im Geschehen und nur noch auf die meisterliche 
Handhabung des Joysticks angewiesen. 

Submission« ist zu 100 Prozent in Maschinensprache 
geschrieben. Daraus ergibt sich auch die Schnelligkeit des 
Spielablaufs. Bevor Sie jedoch das Usting zu »Submission« 
eingeben, müssen Sie unbedingt den AMPEL aus diesem 
Sonderheft abtippen. Das erleichtert Ihnen die Eingabe von 
Atari-Maschinensprach-Programmen. Automatisch werden 
sämtliche Tippfehler erkannt und auf dem Bildschirm ange¬ 
zeigt. (Peter Raab/wb) 


Peter Blümer, der Autor des Spiels »Submission«, ist 
unseren Lesern schon bekannt. In Happy-Computer, Aus¬ 
gabe 1/85, veröffentlichten wir bereits ein anderes, aller* 
dings in Basic programmiertes, Spiel »Die Schatzhöhle«. 
Mittlerweile ist für ihn das Wort Maschinensprache kein 
Fremdwort mehr, wie das Spiel »Submission« beweist. Die 
Umsetzung von der Idee zum tatsächlichen Spiel ist vor¬ 
züglich gelungen. Obwohl das zugehörige Usting ent¬ 
sprechend lang ist, wird sich der Aufwand, es in den Atari 
einzugeben, wirklich lohnen. 


PROGRAMM-STECKBRIEF 

Programmname 

Submission 

Programmtyp 

Spiel 

P rog rammi ersprache 

Assembler 

Programmiänge 

11 688 Byte 

für Computer 

800 XL/130 XE 

zusätzliche Hardware 

Diskettenlaufwerk oder 

Kassetten- Recorder 

Eingabehilfe 

AMPEL 

Bemerkung 

Labyrinth-Spiel 

Leserservice 

Diskette (SUBMISS.COM) 
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Vorsicht Falle! 

Sie drehen in einem Autoscooter Ihre Runden. 
Plötzlich rast Ihnen ein anderer Scooter entgegen. 
Aber keine Panik, »Crazy Scooter« ist nur ein 
Spiel. 

eder fährt gerne einmal mit einem »Bleifuß« auf dem 
Gaspedal. Aber bitte nicht auf echten Straßen. Wenn 
Sie sich so richtig austoben möchten, dann starten Sie 
doch Ihren Computer und laden Sie das Spiel »Crazy Scoo¬ 
ter«. Hier können Sie Ihre Reaktion unter Beweis stellen. 

»Crazy Scooter« ist zu 100 Prozent in Maschinensprache 
geschrieben. Es stellt eine Scooterbahn auf dem Rummel¬ 
platz dar. Sie’steuern das blaue Fstfirzeug, der Computer das 
rosarote. Ihre Aufgabe besteht darin, alle Punkte auf der Fahr¬ 
bahn einzusammeln. Achten Sie aber auf das computerge¬ 
steuerte Auto! Bauen Sie einen Crash, ist eines Ihrer drei 
Leben verloren. Rechts neben der Scooterbahn befindet 
sich Ihre Spritanzeige. Geht Ihnen der Sprit aus, isfs ebenfalls 
für ein Auto vorbei. 

Sollten Sie dem anderen Auto einmal blitzschnell auswei- 
Chen müssen, betätigen Sie einfach den Feuerknopf. Ihr Auto 
beschleunigt dann augenblicklich, was sich allerdings auf 
den Spritverbrauch auswirkt. Achten Sie also auf die Ben¬ 
zinzufuhr. 

Haben Sie trotz Schwierigkeiten alle Punkte eingesam¬ 
melt, gelangen Sie in die nächsthöhere Spielstufe Ab dem 


dritten Level kommt eine neue Schwierigkeit ins Spiel. In der 
Spielfeldmitte erscheint eine Zahl, die die Anzahl der einzu¬ 
sammelnden Bonuspunkte angibt. Diese Punkte erscheinen 
aber ganz willkürlich an irgendeiner Stelle der Bahn. Für 
Jeden eingesammelten Bonuspunkt bekommen Sie 50 Punk¬ 
te. Sollten Sie eine Spielstufe mit zu wenig Bonuspunkten 
beenden, verlieren Sie wiederum einen Scooter. Ab Spiel¬ 
stufe sechs wird es noch interessanter. Dann behindern Sie 
noch Straßensperren, denen Sie geschickt ausweichen 
müssen. 

Jeder Level unterscheidet sich vom vorhergehenden. 
Immerwieder gibt es neue Hindernisse. Stellen Sie doch eine 
eigene Highscore-Liste auf, denn nur wenige werden die 
Stufe zehn erreichen. 

(Oliver Schmitt/wb} 


PROGRAMM-STECKBRIEF 

Programm name 

Crazy-Scooter 

Programm typ 

Spiel 

Programmiersprache 

Maschi nensprache 

Programmlänge 

6030 Byte 

tür Computer 

800 XU130 XE 

^usätzltche Hardware 

DiskettenJaufwerk oder 
Kassettenrecorder und Joystick 

Eingabehilfe 

AMPEL 

Bemerkung 

Sehr schnelles Aktion-Spiel 

Leserservlce 

Diskette (SCOOTER.COM) 
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Pacman mal 2 


Versuchen Sie sich gegen pfiffige Monster. Schla¬ 
gen Sie sich durch Gänge und sammeln Sie 
Punkte alleine oder zu zweit. 

macht mehr Spaß als Programmieren? Natürlich 
erholsames Spielchen. Und was macht noch 

Wwmehr Spaß! Wenn zwei Personen gleichzeitig 
gegeneinander antreten. Bei »Twomaze« handelt es sich um 
ein Spiel für zwei Personen. Es ist in Maschinensprache 
geschrieben, verfügt über hervorragende Grafik und ist 
besonders schnell. 

»Twomaze« ist eine Pacman-Variante. Wie auch beim Origi¬ 
nal, besteht Ihre Aufgabe darin, möglichst viele Punkte zu 
fressen. Aber Vorsicht! Sie sind nicht der einzige, der sich in 
den Labyrinthgängen bewegt. Weine, gierige Monster trach¬ 
ten Ihnen nach dem Leben. Allerdings gibt es noch Kraftpil¬ 
len, die Sie besonders dann nicht verschmähen sollten, wenn 
sich Ihnen einer oder mehrere der Bösewichte nähern. 
Haben Sie rechtzeitig eine Kraftpille verspeist, verfügen Sie 
über enorme Kräfte und können Ihre Gegner vernichten. 
Achten Sie dabei aber auf die Zeituhr am rechten Bildschirm¬ 
rand! Wenn diese nämlich abgelaufen ist, sind Sie wieder ein 
normaler Pacman und müssen sich mit äußerster Vorsicht 
durch die Gänge bewegen. 

Für das rasante Spiel ist übrigens mindestens ein Joystick 
nötig. Über die Tastatur lassen sich die Pacmen nichtsteuern. 


Wer glaubt, daß der gute alte Pacman schon zum alten 
Eisen zählt, hat sich getäuscht. Bei unserem Listing »Two¬ 
maze« gehen nämlich gleich zwei »Pacmänner« gleichzeitig 
auf Punktejagd (Mampf!). Schnappen Sie sich einen Freund 
und zwei Joysticks und schon kann die Labyrinth-Hatz mit 
einer aufregenden, neuen Spiel-Variante losgehen. Pacman- 
Spieler aller Länder vereinigt euch und tretet in diesem furio¬ 
sen Simultan-Programm gegeneinander an! Das ideale Spiel 
für Turniere und Punktspiel-Betrieb (Gobbel-Gobbel- 
Schluckl). 

Zur Eingabe von »Twomaze« verwenden Sie bitte AMPEL 
Beachten Sie auch die Hinweise zu diesem Eingabepro- 
gramm. »Twomaze« läßt sich übrigens nicht von Basic aus ein¬ 
tippen. Dies gilt für alle abgedruckten AMPEL-Listings. Und 
Jetzt noch viel Vergnügen bei der Monsterjagd. 

(Frank Ostrowski/wb) 


PROGRAMM-STECKBRIEF 

Programmname 

Twomaze 

Programmtyp 

Spiel 

Program mlersprache 

Maschinensprache 

Programm länge 

4219 Byte 

für Computer 

alle 

zusätzliche Hardware 

Diskettenlaufwerk oder Kassetten¬ 
rekorder, ein oder zwei Joysticks 

Eingabehjlfe 

AMPEL 1 

Bemerkung 

Pacman-Variante für zwei Personen 

Lßserservice 

Diskette fTWOMA2E.COM) 
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O0<03> 

09CS:BE 

A6 

86 

E8 

8E 

0© 

00 

A6<AB> 

0C38:©0 

00 

©0 

00 

FF 

00 

00 

O0<98> 

0F48:4A 

00 

00 

4A 

A0 

13 

B9 

78<E2> 

0900:87 

Ea 

8E 

01 

D0 

A6 

88 

E8<12> 

0C90:©0 

00 

00 

00 

FF 

00 

00 

0O<:A0> 

ßF50:2E 

FO 

03 

99 

F9 

38 

B9 

SC<A1> 

09D8:SE 

02 

D0 

A6 

89 

E8 

9E 

03<aA> 

0C9B:00 

00 

OO 

00 

00 

00 

0O 

0O<B0> 

0F58:2E 

Fß 

03 

99 

21 

39 

39 

A©CEE> 

O9£0:00 

A6 

8A 

Ea 

ae 

07 

D0 

Ea<24> 

OCA©:00 

00 

00 

00 

10^ 

10 

1© 

10<A9> 

OF60; 2E 

F0 

03 

99 

49 

39 

B9 

34<61> 

09E8:£8 

BE 

06 

D0 

EB 

ES 

SE 

05< \7> 

0CA8:10 

00 

©0 

0© 

©0 

00 

0© 

i5<DD> 

©F68;2£ 

FO 

03 

99 

71 

39 

B9 

ca<2D> 

09F0:D0 

ES 

E8 

SE 

04 

D0 

60 

1C<84> 

0CO0:15 

00 

0© 

00 

10 

10 

10 

1S<4S> 

0F70:2E 

FO 

03 

99 

99 

39 

89 

DC<92> 

09F8:3E 

2A 

6B 

7F 

7F 


55 

35<49> 

0CB8:15 

00 

00 

00 

00 

00 

00 

10<6B> 

0F7a:2E 

FO 

03 

99 

39 

3A 

39 

F0<A9> 

OA00:55 

14 

36 

IC 

3E 

3A 

7B 

7F<5C> 

OCCO:10 

10 

10 

10 

10 

lO 

10 

10<DO> 

OFOO:2£ 

FO 

03 

99 

61 

3A 

B9 

04<15> 

0A08:7F 

55 

54 

54 

54 

16 

30 

1C<66> 

©CCS:10 

1© 

10 

1© 

©0 

00 

0© 

15<04> 

0F8S:2F 

F© 

03 

99 

89 

3A 

B9 

ia<DA> 

OA10;3E 

2A 

6B 

7F 

7F 

SS 

55 

55<70> 

OCD©:15 

10 

1© 

10 

10 

10 

10 

15<70> 

0F90:2F 

F0 

©3 

99 

31 

3A 

39 

ZC<48> 

0A18:55 

14 

36 

IC 

3C 

2E 

6F 

7F<4C> 

OCDS:15 

10 

10 

10 

00 

O0 

00. 

50<B2> 

0F9S:2F 

F0 

03 

99 

D9 

3A 

80 

1O<02> 

0A20:7F 

55 

15 

15 

15 

34 

06 

08<8A> 

OCE0:50 

00 

00 

00 

10 

10 

10 

50<D1> 

©FAO:AD 

60 

A2 

28 

20 

Al 

2F 

A2<63> 

0A28:IC 

3E 

7F 

3E 

IC 

IC 

3E 

7F<DA> 

0CE8:SO 

0© 

00 

00 

00 

0O 

0© 

5S<7D> 

0FAS:40 

2© 

Al 

2F 

60 

AO 

00 

BD<3C> 

OA30:3£ 

IC 

03 

©0 

08 

IC 

3E 

7F<13> 

aCFß:55 

00 

0© 

00 

10 

10 

10 

55<ES> 

0FB0:00 

32 

D9 

©2 

23 

90 

08 

D0<CD> 

0A3S:3E 

3E 

7F 

3E 

IC 

08 

0O 

00<AF> 

0CFS:55 

00 

00 

00 

00 

O0 

00 

5a<0A> 

0FBS:07 

ES 

C8 

C© 

©6 

DO 

F0 

60<F8> 

0A4O:00 

08 

IC 

3F 

7F 

7F 

3E 

1C<46> 

0000:50 

10 

10 

lO 

10 

10 

lO 

50<7A> 

OFCOsBD 

00 

32 

99 

02 

23 

ES 

C3<31> 

0A48: OB 

00 

00 

IC 

3E 

2A 

2A 

3E<4F> 

ODOS:50 

10 

10 

10 

00 

00 

00 

!^<A6> 

0FC8:CO 

06 

DO 

F4 

60 

F6 

Bl 

B5<74> 

0A58:7F 

55 

55 

55 

55 

55 

55 

00<7F> 

0D10:55 

10 

10 

10 

10 

10 

10 

55<11> 

0FD0:32 

18 

69 

©1 

C9 

lA 

90 

02<DA> 

OASa:IC 

3E 

2A 

2A 

3E 

7F 

55 

55<SB> 

ODlSs 55 

10 

10 

10 

A9 

00 

AQ 

99<11> 

0FD8:A9 

10 

95 

32 

20 

IC 

2E 

60<3A> 

0A60:55 

55 

14 

00 

00 

IQ 

3£ 

2A<SD> 

OD20:00 

38 

99 

OO 

39 

99 

O0 

3A<AS> 

OFEO:A9 

00 

A4 

AB 

D0 

02 

09 

0S<13> 

0A68:2A 

3E 

7F 

SS 

55 

SS 

41 

00<5E> ' 

0D2S:99 

00 

33 

ce 

DO 

Fl 

60 

AC<21> 

0FE8:A4 

AA 

D© 

©2 

09 

04 

A4 

A9<45> 

0A7©:iC 

3E 

2^ 

2A 

3e 

7F 

55 

55<F3> 

0D3O:0B 

D4 

C0 

04 

90 

F9 

CO 

7B<77> 

0FF0:D0 

02 

09 

02 

85 

30 

60 

A6<SD> 

0A7Ss 55 

55 

55 

20 

D4 

ZF 

A5 

AE<51> 

0038:EO 

FS 

A9 

IF 

SD 

30 

02 

A9<60> 

©FFB:BS 

BD 

2F 

30 

BD 

00 

D2 

3D<57> 

OA80:05 

AF 

D0 

29 

AD 

©C 

0© 

25<C9> 

0D40:20 

SD 

31 

02 

60 

AC 

OB 

D4<6F> 

1000:31 

30 

8D 

01 

D2 

CA 

30 

02<60> 

0A8S:B0 

FO 

05 

A2 

©0 

20 

88 

2B<74> 

0048:CO 

04 

9© 

F9 

CO 

73 

30 

F5<21> 

1008:86 

38 

AS 

AQ 

05 

AC 

SD 

02<5E> 

0A90:AD 

08 

DO 

0D 

09 

D0 

OD 

0A<F7> 

0D50:A9 

4B 

8D 

30 

02 

A9 

20 

3D<65> 

1010:D2 

F0 

02 

A9 

45 

QD 

03 

D2<1C> 

0A98:D0 

0D 

0A 

D0 

29 

0E 

25 

B0<91> 

©058:31 

©2 

60 

20 

27 

23 

A0 

26<44> 

1018:A5 

A3 

18 

69 

14 

SD 

04 

D2<3D> 

OAA0:FO 

05 

A2 

04 

2© 

83 

23 

A9<80> 

OD60:A9 

00 

99 

90 

39 

A9 

80 

99<F3> 

1020:AS 

AS 

18 

69 

14 

SD 

06 

D2<36> 

0AA8:O1 

SD 

lE 

D0 

60 

AO 

08 

D0<BA> 

0068:88 

39 

88 

10 

F3 

20 

68 

24<4A> 

1028:AS 

A3 

FO 

02 

A9 

C6 

8D 

05<E3> 

0AB0IOD 

09 

D0 

0D 

0A 

D0 

0D 

0A<0E> 

0D70:20 

23 

2D 

A9 

80 

85 

B7 

A9<C0> 

1030:D2 

A5 

A5 

F0 

02 

A9 

C6 

SD<E1> 

0ABS:O0 

29 

OE 

00 

0C 

D0 

25 

B0<0B> 

0078:04 

8S 

90 

85 

94 

20 

D8 

2D<32> 

1038:07 

D2 

60 

00 

5F 

00 

2A 

1C<C7> 

0AC0:FO 

49 

48 

AD 

0C 

DO 

25 

00<6C> 

ßDS0:20 

62 

27 

20 

53 

25 

20 

S3<DC> 

1040:3E 

7F 

7F 

7F 

7F 

7F 

7F 

7F<42> 

0ACS:F0 

0C 

A5 

B0 

4A 

AA 

BD 

77<4A> 

ODS3s 27 

AD 

00 

D3 

29 

0F 

C9 

0F<:C2> 

i04a:7F 

3E 

IC 

IC 

3E 

7F 

7C 

78<D9> 

0AO0S2B 

A2 

00 

20 

DF 

26 

AD 

08<D3> 

0D90;FO 

38 

C9 

OE 

FO 

17 

C9 

0D<2S> 

1050:7© 

70 

78 

7C 

7F 

3E 

IC 

1C<22> 

0A08:D0 

OD 

09 

D0 

0D 

©A 

DO 

OD<73> 

0D98:Fß 

lA 

C9 

03 

F0 

06 

C9 

07<2B> 

105a:3E 

7F 

IF 

OF 

07 

07 

OF 

1F<5D> 

0AE0:0A 

D0 

29 

0E 

25 

B0 

F0 

0C<CB> 

ODA0:F0 

02 

D0 

26 

A5 

B5 

49 

01<1D> 

1060:7F 

3E 

IC 

00 

22 

63 

63 

63<19> 

0AE8:A5 

B0 

4A 

AA 

BD 

77 

2B 

A2<0B> 

0DA8:85 

35 

4C 

AC 

2D 

E6 

35 

E6<03> 

1068:77 

77 

7F 

7F 

7F 

3E 

IC 

1C<53> 

0AFO:O4 

20 

DF 

26 

68 

4A 

4A 

90<09> 

0DB0:B5 

4C 

AC 

2D 

C6 

35 

C6 

35<BA> 

1070:3E 

7F 

7F 

7F 

77 

77 

63 

63<DE> 

0AF8:04 

A9 

C8 

85 

A9 

4A 

90 

04<61> 

©DB8:Z0 

DB 

2D 

20 

53 

25 

20 

83<62> 

1078:63 

22 

00 

00 

00 

OO 

©0 

00<D2> 


4219 Bytes 


Listing zu »Twomaze« (Schluß) 
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Dlitesc GTL +>tesc CTL ^JCESC CTL +>CESC 


CTL +J"g <KI1> 

580 POKE 764,44:INPUT FS:D=1:G0T0 610 <ZI> 

590 F$=“C:":D=0 <MT> 

600 ? ,“CASSETTE^FEJiTIG^HACHEN,^ RETURN "; <AH> 
610 TRAP 660 <OJ> 

620 OPEN #1,8,128,<YW> 
630 IF D TUEN ? #1;D$(1,500); <UB> 

640 IF NOT D THEN ? #1;CS;D*(7,494) <XK> 

650 CLOSE #1:G0T0 470 <EW> 

660 7 "CESC CT1_ 2>CESC CTL -D CESC SHIFT 
DELJ<ESC TAB>I/0*-*FEHLER*”;PEEK(195); <CR> 
670 TRAP 40000=CLOSE #l:eOTO 480 <HQ> 

680 POKE 752,0=END <YW> 

690 REM-- <ZP> 

1000 DATA*FF,FF,00,38,E7,39,A2,FF,1271 <EA> 

1010 DATA*BD,EB,33,90,00,06,CA,EO,1069 <NF> 

1020 DATA*FF,D0,FS,A2,60,BD,8A,38,1349 <VW > 

1030 DATA*9D,00,0i,CA,10,F7,A2,0F,^0 <aL> 

1040 DATA*BD,00,E4,9D,61,01,CA,10,890 <LI> 

1050 DATA^F7,13,AD,65,01,69,01,SD,793 <MP> 

1060 DATA*6B,06,AD,66,01,69,00,80,635 <CE> 

1070 DATA^6C,06,A9,2A,8D,65,01,A9,737 <XW> 

1080 DATAj^.06,80,66,01,AD,67,01,SD,668 <VG> 

1090 DATA^30,06,AD,68,01,80,34,06,531 <HH> 

1100 DATA*38,AD,30,02,E9,02,8D,02,657 < ZR > 

1110 DATA^06,8D,ll,06,AD,3l,02,£9,627 <EV> 

1120 DATA*00,SD,07,06,SD,12,06,A9,488 <DM> 

1130 DATA*45,20,7A,3S,90,11,8E,26,620 <CP> 

1140 DATA*06,A9,00,20,7A,38,90,07,536 < VQ> 

1150 DATA*3E,17,06,20,01,06,18,60,330 <QZ> 

1160 DATA*A2,00,DD,lA,03,F0,0S,E8,e92 <CH> 

„1170 DATA^ES,E8,E8,21,00,F4,18,60,1293 <a<> 

1180 DATA*70,42,39,01,9E,06,9E,06,564 <UJ> 

1190 DATA*9E,06,75,06,9E,06,9E,O6,615 <EX> 

1200 DA'ra*00,00,00,00,4C,2E,22,54,240 <CY> 

1210 DATA*3A,22,2C,50,45,45,4B,2B,469 <TN> 

1220 DATA*31,51,33,29,28,32,35,36,390 <LL> 

1230 DATA*2A,50,45,45,48,28,31,31,473 <SG > 

1240 DATA-fc34,29,9B,01,61,45,01,04,420 <SW> 

1250 DATA-.54,30,72,75,65,66,63,6F , 776 < YW> 

1260 DATA*64,6S,00,1A,00,00,1E,00,257 <ER> 

1270 DATA*00,10,00,00,08,63,09,00,144 <LV> 

1280 DATA*18,15,00,62,79,00,37,0E,333 <NU> 

1290 DATA-..00,2B, 72,65,73,73,0F, 77,622 <KV> 

1300 DATA*62,68,A9,FF,BD,30,02,A9,936 < OK > 

1310 DATA*FF,8D,31,02,A0,03,B9,00,795 < ZL> 

1320 OATA*01,99,FF,FF,B8,10,F7,A0,1223 <DR> 

1330 DATA*FF,A2,05,BD,33,01,99,1A,842 <00> 

1340 DATA*03,CS,E0,03,D0,02,A0,FF,1055 < QQ > 

1350 DATA*CA,10,F0,60,A5,77,FO,0A,1088 <0T > 

1360 DATA*A9,FF,85,26,A9,FF,85,27,1191 < LE> 

1370 DATA*C6,77,A5,73,F0,2D,A5,A1,1208 <VB > 

1380 DATA*10,04,C6,73,F0,25,A6,7S,896 <r46> 

1390 DATA*BD, 14,01,E6,78,C9,9B,00,1124 <2ri> 

1400 DATA*4F,A2,00,S6,78,36,73,A6,910 <WM> 

1410 DATA*A0,S6,71,A6,A1,86,72,A2,1144 <QR> 

1420 DATA*9E,S6,26,A2,06,e6,27,E6,901 <AY> 

1430 DATA*77,D0,35,20,3E,F6,0B,C9,929 <C^> 

1440 DATA*9B,D0,02,E6,73,28,60,A2,1008 <IO > 

1450 DATA*00,C9,9B,FO,26,S6,CC,A6,1138 <LN> 

1460 DATA*00,S6,D1,85tCD,A0,0S,46,919 <Q2> 

1470 DATA*D1,90,0C,18,A2,23,B5,CD,940 <DL > 

1480 DATA*75,CA,95,CD,CA,D0,F7,06,1336 < Z Z > 

1490 DATA*CD,26,CC,88,D0,E9,E6,00,1254 <EW > 

1500 DATA*A0,01,60,A9,A4,A0,02,20,784 <HA> 

1510 DATA*CC,06,A2,03,B5,CA,95,CD,1112 <MP> 

1520 DATA*CA,D0,F9,A9,1A,20,CC,06,1096 <IN > 

1530 DATA*A5,CD,18,69,21,80,48,01,746 <BX> 

1540 DATA*A5,D0,69,21,80,47,01,84,856 <UQ> 

1550 DATA*D0,08,84,00,60,85,72;84,1015 <LY> 

1560 DATA*7l,86,CB,86,CC,a6,CD,A0,1287 <JS> 

1570 DATA*1S,10,A2,05,36,CB,CA,10,690 <RJ> 

1580 DATA*FB,38,A2,03,B5,CA,F5,6F,1211 <RY> 

1590 DATA*95,73,CA,D0,F7,90,0B,B5,1257 <6I> 

1600 DATA*74,95,CB,E8,E0,03,D0,F7,1382 <II> 

1610 DATA*E6,O0,83,D0,DC,60,E2,02,1326 <JV> 

1620 DATA^E3,02,00,38,00,00,00,00,285 <ER > 

1630 DATA*53423 <NQ> 


Listing zum Atari-PrüfSummer (SohEuß) 


Farbe auf die 
Fläche 

Das normale Atari-Basic kennt leider keinen 
Befehl, eine Fläche einzufarben. Das XiO-Kom- 
mando ist nur ein schlechter Ersatz. Das Pro¬ 
gramm »Fill« bringt Farbe auf die Fläche und 
schraffiert sie sogar. 

Das Maschinensprache-Programm »Fill« besteht aus zwei 
Teilen: 

1} Dem Hauptprogramm {333 Byte lang), das in einen String 
geladen werden muß (beim Demoprogramm MAS). 

2) Den Unterpgrogrammen (86 Byte lang), die in Rage 6 von 
der Adresse 1536 bis 1621 stehen. 

Bevor »Fill« gestartet werden kann, müssen die Zahlen aus 
den DATA-Zeilen geladen werden. Nach dem Einschalten von 
»Grafik 8« wird die Figur gezeichnet, die ausgefüllt werden 
soll. Um die Fläche festzulegen, wird mit »COLOR 0« und 
»PLOT X,Y« ein Punkt auf die Stelle gesetzt, von der aus das 
Fill-Programm starten soll. COLOR 0 ist deshalb wichtig, 
damit der Punkt unsichtbar bleibt und beim Ausfüllen nicht als 
Hindernis erkannt wird. 

Danach wird das »FilI«-Programm mit »Q=USR(ADR(MA$), 
MUSTER)« gestartet. »ADR(MA$)« gibt die Anfangsadresse 
von MA$ im RAM-Speicher und damit auch die Startadresse 
des Maschinensprache-Programms an. »MUSTER« kann 
eine Variable oder einen Wert zwischen 0 und 255 sein. Hier¬ 
mit wird das Bit-Muster angegeben, mit dem ausgefüllt wer¬ 
den soll. Der Dezimalwert 255 ergibt als Binärzahl 11111111, 
die sich wie folgt errechnet: 

1x20-1-1x21 -I-Ix2a...-I-Ix2r=255. 

Hier wird jeder Punkt gezeichnet. Bei Dezimalwert 170 
(entspricht binär 10101010) wird nur jeder zweite Punkt auf 
dem Bildschirm sichtbar. Das Bitmuster wird in jeder Bild¬ 
schirmzeile um einen Punkt verschoben, so daß sich daraus 
schräg schraffierte Flächen (von links oben nach rechts 
unten) ergeben. Allerdings muß die Variable »MUSTER« dann 
ungleich 0 sein. 

Um die Funktion des Programmes zu verstehen, ist es 
wichtig, etwas über den Bildschirmspeicher in Grafikstufe 8 
zu wissen. Die Anfangsadresse des Bildschirmspeichers 
steht in den Adressen 88 und 89. Sie wird von Basic aus mit 
»PRINT PEEK(88) + PEEK{89) * 256« errechnet. 

In Grafikstufe 8 ist der Bildschinmspeicher aus 192 Zeilen 
mit je 40 Byte aufgebaut. Jede Zeile ist auf dem Bildschirm 
einen Punkt hoch. Ein gesetztes Bit aus einem Byte bedeu- 


PROGRAMM-STECKBRIEF 

Programmname 

Filk Routine 

Programmtyp 

Graffk-UtiJity 

Programm iersprache 

Basic und Maschinensprache 

Programm länge 

3365 Byte 

für Computer 

600XLy800XL/l30XE 

zusätzliche Hardware 

keine 

Eingöbehilfe 

Prüfsummer 

Bemerkung 

zum Füllen von Flächen in den 
Grafikstufen 4, 6 und 8 
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tet, der Punkt ist sichtbar. Pro Byte können also acht Punkte 
gespeichert werden. Bei 40 Byte pro Zeile mit je acht Punk¬ 
ten kommt man wieder auf 40x8” 320 Punkte Auflösung. 
Schreibt man in die erste Adresse den Wert 128, erscheint 
links oben ein Punkt. Addiert man zu der Adresse 40, wird der 
Punkt eine Zeile tiefer gezeichnet. 

Das Programm »Fill« errechnet zuerst aus der Grafikcursor¬ 
position, die durch »PLOT« gesetzt wird (Adresse 90 für verti¬ 
kale und 91/92 für horizontale Position), die Speicheradresse 
im Bildschirmspeicher. Dieser Wert wird in XA, YA und XS, YS 
gespeichert (in Maschinensprache gibt es keine Variablen; 
hier müssen freie Speicherzellen verwendet werden). XA und 
YA sind die Koordinaten des Arbeitspunktes, der durch das 
Programm verschoben wird. XS und YS werden, nachdem die 
erste Hälfte der Fläche ausgefüllt ist, dazu verwendet, den 
Arbeitspunkt wieder auf die Ausgangsposition zu setzen. 



Bild 1. Verschiebung des Arbeitspunktes beim Ausmalen 
einer Fläche. Bei diesem Beispiel erfolgt das Füllen der 
Fläche rechtsbündig- Um auch den linken Teil füllen zu 
können, muß der Arbeitspunkt in die noch leere Fläche 
gesetzt werden und das Programm»Fill« nochmals gestartet 
werden. 

Vom Arbeitspunkt aus zeichnet das Programm so lange 
eine Linie nach rechts, bis es auf ein Hindernis stößt. In 
Maschinensprache heißt das, daß von der Position XA, YA 
aus jedes Bit im Bildschirmspeicher abgefragt werden muß. 
Wird bei der Abfrage ein bereits gesetztes Bit gefunden, stellt 
dieses den Rand der zu f üllenden Fläche dar. Der Füllvorgang 
wird dann in umgekehrter Richtung fortgesetzt Das gleiche 
gilt, wenn der Bildschirmrand erreicht ist Findet das Pro¬ 
gramm auch hier ein Hindernis, wird YA um 1 erhöht (der 
Arbeitspunkt wird um eine Zeile nach unten verschoben). Ist 
ein Hindernis direkt auf dem Arbeitspunkt XA, YA* kann weder 
eine Linie nach rechts noch nach links gezeichnet werden. 
Der Arbeitspunkt muß dann so weit nach rechts verschoben 
werden, bis eine freie Stelle auf dem Bildschirm gefunden ist 
Auch hierfür werden wieder die einzelnen Bits im Bildschirm¬ 
speicher getestet Liegt der neue Arbeitspunkt noch inner¬ 
halb der auszumalenden Fläche, setzt sich das Ausfüllen der 
Fläche fort. 

Liegt der neue Arbeitspunkt aber schon außerhalb der aus¬ 
zumalenden Fläche, wird er so lange nach links verschoben, 
bis eine freie Stelle gefuhden wird. Bild 1 verdeutlicht diesen 


XS 

= 90 

$5A 


XS 

= 91 

$5B 

Staftposition 

Bit 

= 92 

$5C 


YA 

^ 96 

$60 


XA 

=F 97 

$61 

Arbeitspunkt 

BitA 

= 98 

$62 


Rand R 

= 100 

$64 

rechter Rand der Fläche 

Rand RB 

= 101 

$65 

Rand L 

= 102 

$66 

linker Rand der Räche 

Rand LB 

“ 103 

$67 

j Ijücke 

= 104 

$68 


Sicher 

= 105 

$68 

kurzzeitiger Speicher für 
Zwischenergebnisse 

Modus 

107 

$66 


Bitd 

= 108, 

$6a 

Adressiert die Stelle im 


109, 

60 

Bildschirmspefcher, an der gerade 
gearbeitet wird 

Muster 

= 110 

$6E 

wird über den USR-ßefehl gesetzt 


Bild 2. Verwendete Adressen 


Vorgang. Ist auch sie schon außerhalb der auszufüllenden 
Fläche, ist deren unteres Ende erreicht. Der Arbeitspunkt 
wird Jetzt wieder auf den Ausgangspunkt gesetzt {XA=XS; 
YA=YS). Dann wird die Fläche wieder ausgemalt, nur das XA 
nach jeder fertigen Zeile nicht um 1 erhöht, sondern ernie¬ 
drigt (eine Bildschirmzeile nach oben). Kann auch hier der Ar¬ 
beitspunkt nicht mehr innerhalb der auszumalenden Fläche 
verschoben werden, oder ist der obere Bildschirmrand 
erreicht, wird ins Basic zurückgekehrt. 

Mit der »Fill«-Routine können fast alle Flächen ausgefüllt 
werden. Teilt sie sich aber in vertikaler Richtung (zum Beispiel 
bei einer U-Form wie in Bild 1), wird nur einer der Arme ausge¬ 
füllt. Hier muß der Ausgangspunkt mit »COLOR 0« und »PLOT 
X,Y« in den noch nicht ausgemalten Bereich gesetzt werden 
und das Programm »Filk muß noch einmal gestartet werden. 

Eine Fläche mit mehreren Verzweigungen in horizontaler 
Richtung wird jedoch schon beim ersten Mal korrekt ausge¬ 
füllt. Das Programm arbeitet normalerweise nur in Grafikstufe 
8. Es kann aber auch für Stufe 6 oder 4 umgeändert werden, 
da sie fast den selben Bildschirmspeicheraufbau besitzen. 
Dafür müssen folgende POKE-Befehle an einer Stelle nach 
dem Einlesen von »Fill« aus den DATA-Zeilen in das Basic- 
Programm gesetzt werden: A=ADR(MA$) 


Grafikstufe 

4 

6 

8 

POKEA+71. 

48 

96 

192 

POKE A+153 

9 

19 

39 

POKE A+260, 

9 

19 

39 

POKE 1552, 

10 

20 

40 


Positionen werden bei »Fill« in einer 1-Byte-Adresse für die 
vertikale (y-Achse) und in einer 2-Byte-Adresse für die hori¬ 
zontale Richtung gespeichert. So bekommt man mit »PRINT 
PEEK(84)« die momentane Zeile und mit »PRINT 
PEEK(85) + (PEEK{86)’^256« die momentane Spalte des 
Grafikcursors. Mit »PRINT PEEK(90)« erhält man die vorher¬ 
gehende Zeile und mit »PRINT PEEK(91)-I-PEEK 
(92) * 256« die vorhergehende Spalte, in der sich der Grafik¬ 
cursor befunden hat Diese Adressen, die als dezimaler Byte- 
Wert gePEEKt werden, werden auch von den Basic-Befehlen 
DRAWTO und XIO 18 (Füllen von Flächen) verwendet In Bild 
2 sind noch alle von »Fill« verwendeten Adressen aufgeführt. 
Bild 3 und Bild 4 verdeutlichen noch den Aufbau des Grafik¬ 
bildschirms in Stufe 8. Die einzelnen Biidschirmdaten werden 
Zeile für Zeile im RAM-Speicher abgelegt Um die Start¬ 
adresse des Bildschirmspeichers zu bestimmen, müssen die 















































Obere linke Ecke des Bildschirms 
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Adressen 88 und 89 abgefragt werden. Geben Sie hierzu 
bitte folgende Zeile ein: ^^PRINT PEEK{S8)+PEEK(89) 
*256^. 

Das Programm benützt zwei Koordinatenpaare zum Spei¬ 
chern von Positionen auf dem Bildschirm: 

XA, VA = Arbeitspunkt: Dieser Punkt wird vom Programm 
geändert. Von hier aus werden im Programm Linien nach 
rechts und nach links gezeichnet. 

XS, YS = Startposition: Dieser Punkt wird nicht geändert 
und zum Setzen von XA und YA verwendet. Die Startposition 
errechnet sich aus der Position des Grafikcursors. 

(Rolf Kilian/wb) 


^ Bild 3. Ausschnitt des Bildschirms in Grafikstufe 8. Die 
ausgefüllten Punkte sind sichtbar, alle anderen Punkte — 
auch Pixel genannt — sind unsichtbar. 



Bild 4. Jede Bildschirmzeile in Grafikstufe 8 setzt sich aus 40 Bytes mit jeweils 8 Bits zusammen. Daraus ergibt sich die 
horizontale Auflösung von 320 Punkten, Der Bildschirm setzt sich aus 132 solcher Zeilen zusammen. 


10 REM Demoprogranwn zu *"FILL" <RT> 

20 REM *************** <JB> 

30 REM ROLF KILIAN <HX> 

40 REM Oeschwende 11 <FQ> 

50 REM 7?00 Ulm-Lehr <CL> 

60 REM Tel- 0731/6059X <WZ> 

70 REM *************** <JS> 

80 REM Oktober 1984 <ON> 

90 REM <J«> 

100 DIM nft4^(333> sREM Das Hauptprogramm w 
ird in MA¥ gespeichert <HR> 

110 DE6 <«C> 

120 A=ADR(MA^>iIF PEEKCA)=104 AND PEEKCA 
+332)=166 THEN GOTO 208 <QC> 

125 7 CHR»C125> ; *^BITTE^WARTEN" <eT> 

130 REM *** Zeile 140 kann nach dem l.-fe 
hler-freien Lau'f qeloescht werden <XS> 

140 RESTORE 30800sFOR 1=0 TO 418:READ P: 
C=C-«-P:NEXT lilF CO50795 THEN ? “FEHLER* 

IN*DATA2EIL£N"s END <FC> 

150 RESTORE 30000 <BD> 

160 FOR 1=0 TO 332:READ P:PO<E ADR<MA#)+ 
I,PsNEXT IsREM *** Kauptprogramni einlese 
n <UA> 

170 RESTORE 30046 <HR> 

180 FOR 1=0 TO 85:READ PsPOKE 1536+1,P:N 
EXT IsREM *** Unterprogramme einiesen <LY> 

199 REM Pyratniede aus Kreisen zeichn 

en <BJ> 

200 A=0: GRAPHICS 8+16 <LL> 

210 R=20:S=30 <RP> 

220 FOR YP=30 TO 150 STEP 30 <XG> 

230 FOR XP=l75-YP/2 TO 145+YP/2 STEP 30 <JM> 

248 COLOR 1:60SUB 500:REM *** Kreis zeic 
hnen <GR> 

250 COLOR 0:PLOT XP,YP:REM *** Ausgangsp 
osition fuer Fill <GI> 

260 □=ÜBRtADRCMA^),RND<0>*256>:REM *** F 

111 mit zu-faelligem Muster starten <RH> 

270 NEXT XP <TW> 

280 NEXT YP <UI> 

290 R=B05YP=9S=XP^160:5^15 <VA> 

300 COLOR IsGOBUB 500 <SE> 

310 COLOR 0:PLOT 100,100:Q=USR<ADR(MA^>, 

255> <VA> 


320 PLOT. 220,100:Q=USR(ADR(MA$:) ,255)=REM 
*** Starten von Fill; Muster=255 -> Fla 
eche ganz austuellen <TS> 

330 PLOT 175,16S:Q=USRCADRCMA^),255) <PÜ> 

340 PLOT 145,l6S:(3=USRtADR(MAS> ,255) <QP> 

350 R=95 <AA> 

360 COLOR l:GOSUB 500 <SQ> 

370 COLOR BsPLOT 50,100:Q=USR(ADR(MA#>,1 
70) <F6> 

380 PLOT 300,100:e=USR(ADR(MA^),170) <ZT> 

390 GOTO 390 <QP> 

499 REM *** KREIS ZEICHNEN <QT> 

500 FOR ALFA=0 TO 360 STEP S <UE> 

510 X=XP+COS < ALFA)*R:Y=YP+SIN < ALFA > *R < XO > 
520 IF ALFA=0 THEN PLOT X,Y <TF> 

530 DRAWTO X,Y <OB> 

540 NEXT ALFA <I4A> 

^0 RETURN <M2> 

30000 DATA*104,133,105,104,104,133,110,7 
2,162,3,102,92,102,91,102 <Yy> 

30002 DATA*105,202,208,247,162,4,38,105, 
202,208,251,165,105,133,92 <TH> 

30004 DATA*133,98,133,103,133,101,165,91 
,133,97,133,102,133,100,165 <ZH> 

30006 DATA*98,133,96,169,1,133,107,208,7 
1,176,13,169,0,24,102 <RB> 

30008 DATA*110,106,5,110,133,110,230,96, 

165.96.201.192.209.234.104 <PW> 
30010 DATA*133,110,165,92,133,98,133,103 

,133,101,165,91,133,97,133 <EF> 

30812 DATR*102,133,100,165,90,133,96,169 
,0,133,107,165,96,201,0 <JP> 

30014 DATA*240,17,198,96,169,0,6,110,42, 
5,110,133,110,208,5 <PV> 

30016 DATA*176,2,144,233,96,32,0,6,166,9 

9.32.54.6.133.104 <IU> 

30018 DATA*164,97,49,108,162,0,42,176,28 
,232,224,8,208,248,32 <JQ> 

30020 DATA*39,6,192,39,240,30,200,177,10 
9,208,234,32,39,6,208 <YH> 

30022 DATA*242,165,107,208,140,240,204,1 
96,97,208,4,228,98,240,65 <TK> 

30024 DATA*32,70,6,32,41,6,134,101,132,1 

00,166,98,32,70,6 <RD> 

30026 DATA*133,104,164,97,49,108,162,8,i 


Basic-Listing zu T*f\U& 
































































06,282,176,19,208,250,32 <VC> 

30028 DATA*.39,6,192,0,248,16,136,177,100 
,208,236,32,39,6,208 <XK> 

30030 DATA*242,32,54,6,32,41,6,134,103,1 
32,102,24,232,208,182 <I1P> 

30032 DATA*56,176,250,144,141,224,7,240, 
6,42,232,144,17,176,246 <CN> 

30034 DATA-. 196,108,176,26,192,39,240,22, 
200,177,108,162,255,208,231 <BT> 

30036 DATA..^196,100,288,4,228,101,176,7,1 
32,97,134,98,24,144,214 <ND> 

30038 DATA*166,98,32,54,6,164,97,17,108, 
162,8,106,202,144,16 <0Y> 

30040 DATA^08,2S0,192,0,240,190,136,196 
,102,144,185,177,108,56,176 <LW> 


Basic-Listing 


30042 DATA*234,196,102,208,6,228,103,24« 
,172,144,170,132,97,134,98 <BL> 

30044 DATA^4,144,166 <SZ> 

30046 DATA*165,96,133,105,169,0,133,108, 
162,8,70,105,144,3,24 <CW> 

30048 DATA«10S,40,106,102,108,202,208,24 
3,133,109,24,165,108,101,88 <QT> 

30050 DfiTA*i33,108,165,109,101,89,133,10 
9,96,169,255,37,104,37,110 <VX> 

30052 DATA^17,108,145,108,169,255,133,10 
4,96,169,255,224,0,240,9 <FC> 

30054 DATA^134,105,24,106,202,208,251,16 
6,105,96,169,0,224,0,240 <TM> 

30056 DATA^49,134,105,56,106,202,288,25 
1,166,105,96 <UC> 


ZU »Fill« (Schluß) 


Mit nHappY~Mon€€ auf der Suche 


Will man den RAM-Spetcher durchforsten, sollte 
man einen Maschinensprache-Monitor verwen¬ 
den. »HappyWlon« ist sehr leistungsfähig und bie¬ 
tet alle Funktionen, die Sie brauchen. 

e ekanntlich dient der RAM-Speicher eines Computers 
dazu, Werte hinefnzuschreiben und wieder zu iesen. 
Diese Eigenschaft nutzt auch der eingebaute Basic- 
Interpreter im Atari-Computer, Ailerdings fällt es schwer, von 
Basic aus zu verfolgen, welche Werte wie und wo im Spei¬ 
cherabgelegtwurden. Mit dem Basic-Befehl PEEK kann man 
seine Neugierde zumindest teilweise befriedigen. Dabei 
erhält man einen Dezimalwert zwischen 0 und 255. Was 
fängt man aber damit an? Möchte man nämlich wissen, wel¬ 
chen Befehl der gePEEKte Wert ausführt, muß man eine 
Befehlscode-Tabelle zur Hand nehmen. Dieses Verfahren ist 
sehr aufwendig, und nicht selten schleichen sich noch Fehler 
ein. Hier ist »Happy-Mon« eine willkommene Hilfe, denn unse¬ 
ren Maschinensprache-Monitor lädt man einfach zusätzlich 
in den Speicher. Das Programm kann dann einen besfimmten 
Adressenbereich disassemblieren oder einen Hexadezimal¬ 
oder Dezimal-Dump auf dem Bildschirm ausgeben. Tabelle 1 
zeigt eine Gesamtübersicht der verfügbaren Befehle von 
»Happy-Mon«. 

Hexdump- und Editierfunktionen 
Der Befehl »Z Adresse« bewirkt die Ausgabe eines Hex¬ 
dumps ab Adresse »Adresse«. Es sind beliebige Anfsuigs- 
adressen zwischen dezimal 0 und 65535 zulässig. Bevorzu¬ 
gen Sie hexadezimeüe Zahlen, müssen Sie das Kennzeichen 
$ verwenden. Dies gilt übrigens für alte numerischen Be- 
fehisparcwneter. 

Beispiel; »Z $8000« gibt die ersten acht Byte des »Happy- 
Mon«-Objektcodes in hexadezim^er Darstellung aua An¬ 
schließend erscheint die Frage »Continue (Y/N)« wobei Y für 
»ja«steht. Betätigen Sie die Y- oder die RETURN-Taste, um die 
nächsten acht Byte auszugeben. Mit N für nein oder der 
BREAK-Taste übergibt man die Kontrolle wieder an den Ein¬ 
gabeeditor. Empfinden Sie die ständige Frage »Continue 
(Y/N)« als überflüssig, fügen Sie nur ein N an den Befehl an. 
Beispiel: Mit »Z $8000,N« erfolgt eine ständige Ausgaiie, die 
nur mit CONTROL 1 oder mit der BREAK-Taste unterbrochen 
werden kann. 

Übrigens können Befehlszeilen beliebig viele Leerzeichen 
enthalten. Der Befehl »Z $8000,N« hat dieselbe Funktion wie 


»Z $8000 , N«. Die einzige Einschränkung; Zwei Parameter 
dürfen nur von einem Komma getrennt sein. 

Ähnlich den oben beschriebenen Befehlen arbeitet auch 
der L-Befehl. Die Syntax ist identisch zum Z-BefehJ. Zusätz¬ 
lich wird nur noch die ASCll-Umsetzung der Byte ausge¬ 
geben. 

Die bisherigen Funktionen dienen nur zum Lesen bestimm¬ 
ter Adressen. Mit »Happy-Mon« sind aber auch verschiedene 
Speicherbereiche veränderbar. Dazu wird bei der Ausgabe 
von Speicherinhalten vor jede Zeile das Größer-Zeichen (>) 
gesetzt. Dieses Zeichen stellt im Eingabemodus wiederum 
einen Befehl dar. Erhält nämlich der Editor eine Zeile mit vor¬ 
gestelltem Größer-Zeichen, so werden die acht darauffolgen¬ 
den Werte in den RAM-Speicher übernommen. Eine erfolg¬ 
reiche Übernahme bestätigt »Happy-Mon« mit einem kurzen, 
tiefen Ton. 

Wurde also ein bestimmter Speicherbereich mit Z oder L 
gedumpt, können Sie diesen mit den üblichen Editierfunktio¬ 
nen wie DELETE, BACKSPACE oder INSERT verändern. 
Anschließend kann die betreffende Zeile mit der RETURN- 
Taste in den Speicher übernommen werden. Versuchen Sie 
diese Funktion aber bitte nicht an Adressen, die »Happy- 
Mon« belegt. 

Beim Editieren muß sich übrigens mindestens eine Hexa¬ 
dezimalzahl hinterdem Doppelpunkt befinden. Bedenken Sie 
aber, daß sich eine Hexadezimalzahl stets aus zwei Zeichen 
zusammensetzt (0 bis 9 und A bis F). Die Verwendung und 
Anzahl von Leerzeichen ist freigestellt. 

Weitere Editierfunktionen 

Eine besonders schnelle Eingabe von größeren Hexcode- 
Blöcken erlaubt die Funktion A. Der Befehl »A $5000« 
bewirkt die Ausgabe von »>5000:« auf dem Bildschirm, 
wobei der Cursor hinter dem Doppelpunkt positioniert ist. 
Jetzt können bis zu acht Hexadezimalwerte eingegeben wer¬ 
den. Mit RETURN erfolgt die Übergabe der kompletten Zeile 
in den RAM-Speicher, und die nächste Anfangsadresse wird 
ausgegeben. Mit BREAK verläßt man diesen Modus wieder. 

Ähnlich arbeitet Funktion E. Zusätzlich werden hier die 
ASCII-Werte ausgegeben. Mit RETU RN ist eine Zeile dann im 
Speicher. 

Der Disassembler 

Zum Disassemblieren stehen »Happy-Mon« zwei verschie¬ 
dene Modi zur Verfügung. Den ersten Modus ruft der Befehl 
»D Adresse(,N}« auf. Hier erfolgt die Ausgabe in mnernoni- 
scher Rsrm und in der Reihenfolge: Adresse, Hexcode und 
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Befehl 

Erkl^ung 

Mon Ktorf urtktlonen 

<hexnum: h1 bishS 

Editieren im Speicher 

L Anfangsadresse {,N) 

Hex- und ASCiFDump 

2 Afifangsadresse 

Hexdump 

A Antangsadresse 

Automatische 

Adressenausgabe 

E Anfangsadresse 

Automatische 

Adressen- und Oumpausgabe 

Disessembler 

D Anf^gsadresse (*N) 

Disassemblieren 

U Anfangsadresse (,N) 

Erzeugen eines vom 

Assembler verstandenen Formats 

Speicherzugriffe 

M Anfangsadresse, 

Neuanfang, Anzaht 

Verschieben eines 

Speicherblocks 

P Adresse^ Byte 

Single Byte POKE 

V Adresse, Word 

2 Byte-POKE (Low/High) 

F Anfangsadresse^ 

Anzahl, Byte 

Füllen eines Speicherbereichs 

T Antangsadresse, 

"String' 

Setzt einen String im ASCII- 
Fbrmat ein 

Suchen im Speicher 

HB Anfangsadresse, 

Byte {,N) 

Sucht ein Byte 

HW Anfangsadresse, 

Word {,N) 

Sucht einen 2-Byte-Wert 
fLow/High) 

Ein- und Ausgabe 

0 #Filespeziffkatlon 

setzt beziehungsweise ändert 
den zweiten Ausgabekanal 

N 

böscht den zweiten Ausgabe kanaJ 

R Sektornummer, 

Bufferanfang 

Liest einen Sektor 
von Diskette 

W Sektomumnrier, 

Bufferanfang 

Schreibt eif>en Sektor 
auf Diskette 

Hexadezi rnat-DezimaFWandl u ng 

? Dezimatwert 

Wandelt eine Dezimalzahl 
in eine Hexadezimalzahl um 

? $ Hexadezimalzahl 

Wandelt eine Hejtadezimalzahl 
in eine Dezimalzahl um 

»Happy-Moit« verlassen 

X 

Rückkehr zum DOS 

Q 

Rückkehr zum Modul 
(falls vorhanden) 

Verschiedenes 

G Adresse 

Fühlt eine Maschmenspiache- 
Unterroutine aus 

K 

Umschaltung zwischen norrr^ater 
und invertferter Darstellung 

* Wert 

Setzt den Programm-Zahler 

4- Wert 

Setzt die Variable 


Befehlsübersicht von »Happy-Mon« 


Mnemonic. Die Zeilen beginnen mit dem > -Zeichen, so daß 
sich die Hexadezimalwerte wieder editieren lassen. 

Der zweite Disassembler-Modus wird mit »U Adresse{,N)« 
aufgerufen. In diesem Modus werden zu den mnemonischen 
Codes keine Adressen und Hexcodes, sondern Zeilennum¬ 
mern ausgegeben. Den erzeugten Code kann man dann mit 
einem Assembler, wie beispielsweise MAC/65, überneh¬ 
men. Bytes, die sich nicht disassemblieren lassen, werden 


Fehlermeldung 

Erklärting 

1 

Falscher Hexadezimal-Wert 

2 

Fischer Dezimal-Wert 

3 

Byte/Zeropage erwartet 

4 

Angegebene Anfangsadresse 
oder erreichte Arbeitsadresse 
liegt im ^gefährlichen« Bereich von 
$0410 bis $D7FF 

5 

Falls bei der Eingabe einer 
besUmmten Anzahl eine Null ein¬ 
gegeben wird, tritt diese Fehler¬ 
meldung auf 

6 

Unbekannter Befehl 

7 

Fehlerhafte Syntax in einer 
Hexadezimal'Zeile 

8 

Tritt nicht auf 

9 

Falscher Paiametertyp 

128-255 

Betriebssystem- Fehler 

Oie Fehlermeldungen von 

»Happy-Mon« 

PROGRAMM-STECKBRIEF 

Programmname 

Happy-Monitor 

Programmtyp 

Utility 

P rogrammiersprache 

Maschinensprache 

Programm länge 

6407 Byte j 

für Computer 

600 XL/800 XLiI 30 XE 

zusätzJiche Hardware 

Diskettenlaufwerk 

Eingabehilfe 

AMPEL 

Bemerkung 

Die abgedruckte Version läuft mit 

DOS 2.0 oder DOS 2.5. Für DOS-XL- 
Besitzer ist eine zweite Version auf der 
Leserservice-Diskette vorhanden 

üesersefvice 

Diskette 

(MONlTOR-COM/MONfTORI .COM) 


als ».BYTE« dargestellt. Beachten Sie im Zusammenhang mit 
der U-Funktion auch den O-Befehl. 


Spezielle Speicherzugriffe 

Befehl 

iM Anfangsadresse, Neuanfangs- 

acJresse, Anzahl« 

>P Adresse, Byte« 

»V Adresse, Word« 

»F Adresse, Anzahl* Byte« 
s>T Adresse, '"String"'« 


Erklärung 

bewegt einen Speicherblock 

Einzelbyte- POKE 
Doppeibyte-POKE im Low/High- 
Fbrmat 

Füllen eines Speicherbereiches 
Speichert ab Adresse ^Adresse« 
einen String im ASCII-Format ab 


Suchfunktion 

»Happy-Mon« ermöglicht es, den RAM-Speicher nach 
Einzel- oder Doppelbyte zu durchsuchen. Um ein einzelnes 
Byte zu finden, geben Sie folgenden Befehl ein: »HB An¬ 
fangsadresse, Byte {,N)«. Nun beginnt ab Adresse »Anfangs¬ 
adresse« die Suche nach dem eingegebenen Byte und 
gegebenenfalls wird die zugehörige Adresse im editierfähi¬ 
gen Format ausgegeben. Entsprechend verfährt der Befehl 
»HW Anfangsadresse, Word {,N)« beim Durchsuchen des 
RAM-Speichers nach einem Doppelbyte. 

Ein- und Ausgabe 

Alle auf dem Bildschirm ausgegebenen Texte lassen sich 
auch auf einem Drucker wiedergeben. Ern zweiter Ausgabe¬ 
kanal öffnet sich mit »O # Filespezifikation«, wobei Kanal 
Nummer 2 verwendet wird. Mit dem Befehl »N« kann man den 
Kanal wieder schließen. Als zweiten Ausgabekanal sollte man 
niemals den Editor oder den Bildschirm anwählen. 













































































StfchWMt 





Sdiaffen Sie sich ein 
inteiessanles Nodischlagewerk und 
glekhxeitig ein wertvolles Aidihr! 



Keimen Sie alle »Happy Coinpnterw-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 
einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Axtiloel itachbesteBen Icönnen, finden Sie auf diesen 
Seiten eine Zusrnmnenst^img aller wesentüchen Artikel der Ausgaben 01 bis 06 und 08 bis 
12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben; Prüfen Sie, welche Ausgabe in 
Ihrer Sammlung noch fehlt, oder welches Theirta Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 3/85) auf dem Bestellabschnitt der hier 
eingehefteten Besteli-Zahlkarte ein. Die ausgefüBte Zahlkarte einfach heiaustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlimgs- 
eingang umgehend zur Anlieferung gebracht. 
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SDNIIEBIIEn 01 m: SINCLAIR 

Un^ntb^hiiichS Inforni^tiQni$n zu den Sincläit 
Compatent ZXSl und Spsctium. 

SOHDERHEn 01/85: SPKTRUM 

Aitwsndungsbesogene Listings und T^p^&l^cks 
für alle Spectmia-Fans, 

SONDEBHErr 02/853 SCHNEIDER 1 

Eine Fülle wertvollei" Beitrage und Listings 
iurslle Schneider-Anvrenden 



Am besten 
gleich mitbestellen; 

Pie Hnppnf Compntep-Sammelbox 


Für alle Leser, die »Ifeppy Com- 
puteri< legelmäßig kaufen, sam¬ 
meln oder im iyx>nnement bezie¬ 
hen, gibt es eirt interessantes Ser¬ 
vice-Angebot: die Happy Compu- 
ter-SammelboxI 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attiaktives Nachschla¬ 
gewerk. 


Übrigens: Die Sammelbos ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 
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60 
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Al 

97 

85<53> 

Üsting zu »\ 

Happy-Mon« (Schluß) 


»Happy-Mon« greift sogar auf einzelne Diskettensektoren 
zu. Dies ist speziell bei Boot-Disketten nützlich, da sie keine 
Files enthalten. Mit »R Sektornummer, Butferanfang« liest 
man einen Sektor, entweder mit 128 oder 256 Byte Länge, 
in den Speicher ab »Bufferanfsmg«. Mit »W Sektomummer, 
Bufferanfang« läßt sich ein Sektor wieder zurück auf Diskette 
schreiben. 

Hexadezimal-Dezimal-Umwandlung 

Gibt man beispielsweise »? 100« ein, wird der entspre¬ 


chende Hexadezimalwert ausgegeben. »? $100« wandelt 
eine Hexzahl in eine Dezimalzahl um. 

Bildschirmdarsfellung 

Mit dem Befehl »K« steht normale oder invertierte Bild¬ 
schirmdarstellung zur Wahl. 
Maschinensprache-Unterprogramme aufrufen 
Mit »G Adresse« kann ein Maschinensprache-Unterpro¬ 
gramm, das mit einer RTS-Anweisung enden muß, aufgerufen 
werden. 
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Der Programmcounter und die »+«-Variable 

Zur Vereinfachung der Arbeit können Sie jederzeit die 
Platzhalter und verwenden. Dabei repräsentiert 
den Programmcounter und wird in den Funktionen U E, Z, A, 
D, U, F, und T mitgeführt. Ein mit der Funktion »L« gestartetes 
Listing setzt »L * «fort.»+«ist eine vom Benutzer frei definier¬ 
bare Variable. Den Wert von »* « ändert man mit Wert«, und 
von »-h« mit Wert«. Die Befehle +« und »+ *« sind 
zulässig. 

3&Happy-Mon« arbeitet sowohl mit DOS-XLais auch mit DOS 
2.0 oder DOS 2.5. Die abgedruckte Version läuft allerdings 
nur mit DOS-Versionen, die nicht ständig im Speicher verblei¬ 
ben, wie DOS 2.0 oder DOS 2.5. Für Besitzer von DOS-XL 
oder anderen residenten DOS-Versionen befindet sich auf 
der üeserservice-Diskette eine zweite Version mit dem 
Namen »M ASTER1.COM«. 


Besondere Hinweise zu »Happy-Mon« 


Geben Sie zunächst das Listing mit AMPEL ein. Ist s^Happy- 
Mon« komplett abgetippt, speichern Sie das File bitte mehr¬ 
fach. Legen Sie sich auch eine Kopie auf einer weiteren Dis¬ 
kette an, die Sie an einem sicheren Platz aufbewahren. Sollte 
dann Ihre Arbeitskopie versehentlich gelöscht werden, 
haben Sie immer noch eine Kopie Sicher ist sicher! 

Aufruf von »Happy-Mon« 

Sollten Sie die ^gedruckte Version verwenden (auf der 
Leserservice-Diskette finden Sie das File mit dem Namen 
»MASTEROOM«), müssen Sie entweder mit DOS 2.0 oder 
DOS 2.5 arbeiten. Um das Programm zu starten, gehen Sie 
zunächst mit »DOS« ins DOS-Menü. Dann laden Sie den 
Maschinensprache-Monitor mit der L-Funktion. Kehren Sie 
anschließend mit B zum Basic zurück, jetzt können Sie bei¬ 
spielsweise ein Basic-Programm eingeben oder von Diskette 
laden. »Happy-Mon« rufen Sie mit »? USR{32768)« auf. Sie 
befinden sich anschließend im Eingabeeditor des Maschi¬ 
nensprache-Monitors. Hier können Sie dann alle beschriebe¬ 
nen Funktionen ausprcbieren. Mit X gelangen Sie zum DOS 
zurück und mit Q zum Basic. Sollte sich vor dem Aufruf von 
»Happy-Mon« ein Basic-Programm im Speicher befunden 
haben, steht einer Weiterbearbeitung nichts im Wega 

Die zweite »Happy-Mon«-Version ist nur auf der 
Leserservice-Diskette erhältlich. Sie finden Sie mit dem 
Namen »MASTER1.COM«. Diese Ausführung nutzt die Adres¬ 
sen ab $2200, also oberhalb von DOS-XL, Somit ist ein 
Zugriff auf die Adressen $8000 bis $9FFF, in dem sich 
»Happy-Mon« normalerweise befindet, möglich. Außerdem 
ist diese Version Voraussetzung, wenn Sie die Diskettenver¬ 
sion des MAC/65-Assemblers verwenden. Bevor Sie 
»Happy-Mon 2« einsetzen, ist noch das File »AUTRUN.A« in 
»AUTORUN.SYS« umzubenennen. Anschließend können Sie 
diese Diskette booten. Wenn Sie mit der Diskettenversion 
des MAC/65-Assembler3 arbeiten, schalten Sie den Atari- 
Computer mit gedrückter OPTION-Taste ein, um das Basic zu 
desaktivieren. Von der OOS-Befehlszeile aus laden Sie dann 
anschließend das File »MASTER1.COM«. Ansonsten sind die 
Funktionen in beiden »Happy-Mon«-Versionen identisch. 
Wichtige Annterkung 

»Happy-Mon« verwendet die Zeropage-Adressen 128 bis 
160! Diese sollten nicht verändert werden. Sprünge von und 
zu Programmen, die diese Register benutzen, wie beispiels¬ 
weise Basic und der MAC/65-Assembler, sind allerdings pro¬ 
blemlos. »Happy-Mon« rettet diese Register bei der Initiali¬ 
sierung und stellt sie beim Verlassen (auch bei RESET) wie¬ 
der her. 


Windows: 
Nicht nur ein 
Augen¬ 
schmaus 

Mit cfer Window-Technik läßt sich eine Benutzer¬ 
führung realisieren, die bislang nur teuren 
Personal Computern Vorbehalten war. 

H ört man den Begriff »Window« oder Fenster, so ver¬ 
bindet man diese Begriffe mit einer hervorragenden 
Benutzerführung. In dieser Hinsicht hat besonders 
der Atari 520 ST von sich reden gemacht. 

Das Programm »Windows« für den Atari 800XL7130XE ist 
sicher nicht mit GEM, der Benutzeroberfläche des Atari ST, 
zu vergleichen. Vielmehr soll es dem Atari-Fan zeigen, daß 
sich eine abgespeckte Version auch auf den »kleinen« Com¬ 
putern realisieren läßt. Mit diesem Programm kann man an 
einer beliebigen Stelle auf dem Bildschirm ein Fenster ein¬ 
blenden. Der Vorteil dieser »Window-Technik« liegt darin, ver¬ 
schiedenartige Texte oder Grafik und Text nebeneinander 
bearbeiten zu können. Löscht man das Fenster, erscheint auf 
dem Bildschirm wieder der ursprüngliche Text 
Der Trick dabei ist relativ einfach. Bevor man ein Fenster öff¬ 
net, wird der überblendete Bildschirmausschnitt in einen 
anderen Speicherbereich »gerettet«. Daraufhin ist dieser 
Bildschirmausschnitt für andere Arbeiten frei. Benötigt man 
das Fenster nicht mehr, wird der anfängliche Bildschirmaus¬ 
schnitt wieder in den Bildschirmspeicher geschrieben. 
Soviel zur Fenstertechnik. Wenden wir uns dem Programm 
selbst zu. 

Tippen Sie zunächst Listing 1 mit dem Prüfsummer ab und 
speichern Sie dann das Programm. Nachdem Sie RUN einge¬ 
geben haben, wird ein File mit dem Namen WINDOWS.08J 
auf Diskettenlaufwerk Nummer eins abgelegt. Dieses File 
enthält dann die eigentlichen Window-Routinen. Um es ein¬ 
fach und schnell von Basic aus laden zu können, verwenden 
Sie Listing 2 (bitte mit dem Atari-PrüfSummer eingeben). Das 
Window-Initialisierungsprogramm liest dann die Window- 
Routinen in den Speicher. Da nun die Betriebssystemerwei- 
terung im Speicher vorliegt können Sie bedenkenlos mit 
NEW löschen. 

Ein anderer Weg, das Programm »Windows« zu laden, ist 
von Basic aus »POKE106,144:DOS« einzugeben. Vom DOS- 


PROGRAMIVI-SrrECKBRIEF 

Programm narrte 

Windows 

Programmtyp 

Utility 

Prog rammiersprache 

Basic und Maschinensprache 

Programmlange 

4974 Byte 

für Computer 

800 XL/130 XE 

zusätzliche Hardware 

keine 

Erngabehilfe 

Prüfsummer und AMPEL 

Bemerkung 

Maschinenprogramm mit Basic-Lad er 

Leserservice 

Diskette (LADE.BAS, WINDOWS.COM. 
WINDBEIS.BAS) 


{Thomas Fischermann/wb) 


























So könnte ein typischer, mit Windows versehener Bildschirm 
aussehen 


Menü aus ruft man dann »WINDOWS.OBJ« auf und kehrt wie¬ 
der ins Basic zurück. Nun noch »?USR(37120)« eintippen, 
und die Fenster sind abrufbereit. Die Betriebssystemerweite- 
rung benötigt 4 KByte-RAM. Zieht man aber die Vorteile der 
Fenstertechnik in Betracht, dann ist dieser Speicher 
bestimmt kein verschwendeter Platz. Die Fenster werden in 
Grafikstufe 0 übrigens genauso angesprochen, wie andere 
Gerätetreiber auch. 

Öffnen eines Windows für Ein- und Ausgabe 

:^POKE 1538,[X-Länge des Windows]: POKE 1539, [Y- 
Länge des Windows]: POSITION [X-Position], [Y-Position]: 
OPEN #[Kanalnümmer 1-7],12,0,"W: 

Durch den OPEN-ßefehf wird ein (zunächst leeres) Win¬ 
dow auf den Bildschirm ausgegeben. Dabei enthalten die 
Speicherstellen 1538 und 1539 die X- und die Y-Ausdeh- 
nung (X-Ausdehnung = 5 bedeutet zum Beispiel, daß im Win¬ 
dow 5 Spalten zur Verfügung stehen). 

Beispiel: ^POKE 1538,10: POKE 1539,8; POSITION 
4,2:OPEN # 1,12,0, "W:^« 

Beschreiben eines Windows 

»PRINT #[Kanalnummer wie bei OPEN]; 'TEXT V 
Die Ausgabe von Texterfolgt, wie man es von den Grafik-Modi 
1 und 2 her kennt Das ASCII-Zeichen 125 löscht den Inhalt 
des Windwos, und der windowinteme Cursor wandert dann 
wieder an die obere linke Ecke des Fensters. Wenn der Cur¬ 
sor dann den unteren Rand des Fensters erreicht hat. wird 
der Inhalt des Windows nach oben gescrollt Beispiel: 
»PRINT #1;"5+7=";5 + 7^ 

Einlesen einer Textzeile 

»INPUT # [Kanalnummer wie bei OPEN]; [Variablen- 
name]^. 

Der INPUT-Befehl wurde gegenüber dem üblichen INPUT 
etwas verbessert. Der Benutzer kann mit dem Cursor die 
INPUT-Zeile nicht mehr verlassen (zum Ausbessern von 
Fehleingaben stehen die Pfeiltasten und DELETE-BACK- 
SPACE zur Verfügung). Außerdem kann man die maximale 
Länge der Eingabe festtegen, indem man den entsprechen¬ 
den Wert in die Speicherzelle 844+[Kanalnummer * 16] 
POKEt. Nach einem INPUT-Befehl steht in dieser Adresse 
wieder eine Null. Enthält diese Stelle keinen Wert größer Null, 
dann wird die Eingabetänge von der letzten Spalte des Win¬ 
dows begrenzt. Beispiel: »POKE 860,6:INPUT #1:A$« 
oder »INPUT #1;X^. 

Positionieren des Cursors im Window 

»X= [Spalte 0 bis X-Ausdehnung (Inhalt von 1538) des 
Windows minus 1 ]:Y=[Zeile 0 bis Y-Ausdehnung (Inhalt von 


1539) des Windows minus 1 ]:POINT #[Kanalnummer wie 
bei OPEN],X,Y«. 

Das nächste Zeichen wird dann an der entsprechenden 
Stelle ausgegeben (der POINT-Befehl funktioniertim Zusam¬ 
menhang mit dem Window wie der POSITION-Befehl beim 
Bildschirm-Editor). Beispiel: »X=4: Y=1: POINT #1,X,Y« 

Schließen eines Windows 

»CLOSE # [Kanalnummer wie bei OPEN]« 

Der ursprüngliche Inhalt des vom Window verdeckten Bild- 
schirmteiis wird wieder hergestellt. Beispiel: »CLOSE # 1«. 

Schließen eines Windows, ohne den ursprünglichen Bild- 
schirininhalt wieder herzustellen 

»POKE 832 +[Kanalnummer*16],255«. Nun kann der 
Kanal wieder benutzt werden, obwohl das Window auf dem 
Bildschirm bleibt. Beispiel: »POKE 848,255«. 

Beim Öffnen und Schließen eines Windows (mit CLOSE) 
verlegt der Window-Händler den Cursor in die obere linke 
Ecke des Bildschirms. 

Selbstverständlich erkennt der Window-Händler auch 
eventuelle Fehler (zum Beispiel Cursor außerhalb des Bild¬ 
schirms), Man erh^t dann die gewohnten Fehlermeldungen. 
Dadurch ist es fast unmöglich, die Window-Routinen durch 
falsche Werte zum Abstürzen zu bringen. 

Wer noch einen Atari 400 oder 800 besitzt, muß in die 
Window-Initialisienjngsroutine (Listing 2) die Zeile »32005 
POKE 121,254:POKE 122,254« einfügen. Die INPUT- 
Routine des Window-Handlers benutzt nämlich diese 
Adresse (KEYDEF), die bei den XL- und XE-Modellen auf den 
Anfang der Tastaturbelegungstabelle zeigt, zur Tastatur¬ 
abfrage. Durch Abändern von Listing 1 (Zeile 105 »OPEN 
#1,8,0, "C:''«) und Listing 2 (Zeile 32035 »OPEN #1,4,0, 
'":...«) läßt sich die Betriebssystemerweiterung an den 
Atari-Programmrekorder anpassen. 

Listing 3 beinhaltet ein kleines Spiel, mit dem Sie die 
Window-Betriebssystemerweiterung ausprobieren können. 
Es handelt sich darum, durchziehen von Karten und Addition 
ihrer Einzel werte möglichst nahe an die Zahl 23 heranzukom¬ 
men, sie aber nicht zu überschreiten. 


Windows - technisch betrachtet 


Die zentrale Ein-/Ausgaberoutine des Betriebssystems 
(CIO) benutzt für die elementaren Ein-/Ausgabeoperationen 
wie Gerät öffnen, Gerät schließen, Byte lesen, Byte schrei¬ 
ben, Statusabfrage und sonstiges, die sogenannten Geräte- 
Handler. Die Anfangsadressen dieser Maschinensprach- 
Unterprogramme werden von der CIO über die Handler- 
AdressenTabelle (HATABS, $031A bis $033F) berechnet. 
Durch Ergänzen dieser Tabelle mit eigenen Händler- 
Adressen lassen sich beliebig eigene Ein-/Ausgabegeräte 
definieren. (Dietrich Wagner/wb) 


Initialisierungsprogram m 


(Window-Händler wird in 


HATABS eingetragen) 

$9i00-$9tl8 

Window öffnen 

$9119-$92A4 

Window beschreiben 

$92A5”$93e3 

Sonstiges (Cursor positionieren) 

$93B4-$93DF 

Textzeile ei niesen 

S93£0-$961F 

Zwischenspeicher für den vom 


Window verdeckten Bild¬ 


schirminhalt 

$9S00-$9C99 

Systemvariablen für den 


Window-Handler 

$0600-$062F 


Wichtige Adressen des Programms »Windowfc 
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Listing 1. Die »Windows«-Betriebssystemerweiterung. Bitte mit AMPEL eingeben. 


3200ia DATA*104, lß4, 141,85,3,104,141 ,S4,3 
,104,141,89,3,104,141,08,3,169,7,162,16, 


32035 OPEW et ,4,0, UIINDOS.OBJ":FOR F=1 

TO 6:BET #1,HI:NEXT F 

<CC> 

32,86,228,96 

<NJ> 

32040 HI=USR(ADR(BLOAD^>,37120,1400) 

<QL> 

32010 RESTORE 32000:DIM BL0AI>^(25> 

<US> 

32045 CLOSE #1 

<RM> 

32020 FOR F=1 TO 25;READ HI:BLOAD^(F,F>= 


32050 HI=ÜSR(37120) 

<TZ> 

CHR^CHI)sMEXT F 

<UA> 

32060 END 

<KS> 

32030 POKE 106,144;GRAPHICS 0 

<BU> 



Listing 2. ßaslc-Lader für »Windows« (bitte mit dem AtarpPrüfsummer eingeben) 



5 REM BEISP2,BAS 


<JA> ! 

555 GOSUB 1100:LX=22:LY=I--POSITION 8,0; G 


10 REfl 


<JO> 

□SUB 2300:7 #3;"^Weiter^mit^lCTL Y>RETUR 


20 REM Zuerst "WINDINIT.BAS” laufen 

1 a55 


NCCTL Y>.";:INPUT #3?1$ 

<8Q> 

en 


<KL> 

557 CLDSE #3 

<NE> 

30 REM 


<JQ> 

560 IF GEW>0 THEN GOSUB 1700;GOTO 502:RE 


100 REM *** 23 *** 


<IW> 

M >>> GEWONNEN <:<< 

<JX> 

150 2 "tESC CTL <>"=SETCaLOR 2,5,4;! 

SETCO 


570 NEXT N 

<IH> 

LÖR 1,0,14:SETCQLÜR 4,5,0 


<TY> 

5S0 GOTO 502 

<0M> 

200 DIh (40),I^<20>,NA^(20),PÜ(2) 

,AW^( 


997 REM 

<CD> 

1),X(2),y(2),CF(2) 


<CC> 

99B REM UP FRAGE 

<HS> 

210 ;N^(40):N#(2)=NS(1) 


<SS> 

999 REM 

<C3> 

220 X(1)=0:X(2>=lB:PU(l)=0:py(2)=0 


<JT> 

1000 ? #3;"Jetzt*bist*Du^dran,":7 #35NS( 


230 CF(1)=0:CF(2)=ß 


<VC> 

N*20-19,N*20>; 

<KS> 

500 GOSUB 1200;REM >>> ANFANG <<< 


<DV> 

1010 ? #3;”Wi1Ist*Du^einG^Karteziehen^(J 


502 FOR N=1 TO 2 


<NU> 

/N)^7^"; 

<KG> 

510 LX^20;LY=7;POSITION X(N>,N*2-1;! 

GOSUB 


1020 RETURN 

<OZ> 

2300 


<MC> 

1097 REM 

<VB> 

520 GOSUB 1000 


<QQ> 

1098 REM UP PUNKTEANZEIGE 

<LE> 

530 IF CF(N)=1 THEN GOSUB 2100;GOTO 

S50 

<EG> 

1099 REM 

<VJ> 

540 GOSUB 2000 


<RF> 

1100 LX=30:LY=10:POSITION 4,10;GOSUB 230 


550 GOSUB 1600:REM >>> KARTE ZIEHEN 

<<< 

<UR> 



553 GOSUB 1800 


<UX> 

Listing 3. Ein einfaches Spiel mit Windows 
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<EH> 

1730 

7 #3;7 #3;"Waech^tes*Spielt*ICTL 


1110 

? #3:? #3; "...***^*.k*******23****‘' 

<SI> 

V>RETURNICTL Y>." 

<LD> 

1120 

2 #3 = 7 #3;NSC1,20) ;PU(1):? #3; 


1740 

INFUT #3;IS:PU<1)=0=PUC2)^a=GEW=0=C 


? #3; 

NS(21,40);":*";PUC2) 

<XM> 

LOSE 

#3 

<2R> 

1130 

? #3 = 2 #3:7 #3: {C)-.1985*DWS" 

<HC> 

1750 

RETURN 

<PW> 

1140 

RETURN 

<PH> 

1797 

REM 

<VP> 

1177 

REN 

<VD> 

1798 

REM PRUEFEN, OB SPIEL ZU ENDE 

<JD> 

117S 

REN UP ANFANG 

<TO> 

1799 

REM 

<vx> 

1179 

REN 

<VL> 

1800 

IF PU<1)<21 OR PUC2X21 OR GEW>0 TH 


1200 

LX=32:LY=10;POSITION 3,0;6öSUB 2300 

<ZU> 

EN RETURN 

<EE> 

1210 

? #3:? #3; *,.*,***,*,23** 

<QZ> 

1810 

IF PÜ(1)>PU(2> THEN GEW=1:RETURN 

<ZH> 

1230 

7 #3:7 #3; “Wie*hei^st*cler*er^1:e*Spi 


1820 

IF PU t2)>PU C1) THEN GEW=2;RETURN 

<AI> 

eler*7"'-- INPUT #3; 1^: C 1 ,20) =1$ 

<AJ> 

1830 

GEW=3:RETURN 

<AU|> 

1235 

IF THEN NS<1,5)=”ATAKI" = CFC1) 


1997 

P£M 

<VT> 

= 1 


<CF> 

199S 

REM UP SPIELERZUe 

<DS> 

1240 

7 #3:7 #3;''Wie*heisst*der*zweite*Sp 


1997 

REM 

<WB> 

INPUT #3; IS: N$ t2l ,40) =1$ 

<GA> 

2000 

X=15:Y=3;POINT #3,X,YsINPUT #3;AWS 

<GJ> 

1245 

IF I" THEN NS <21 , 28) == ” CONPUTER “ : 


2020 

IF AWS="N*' THEN KG=0: RETURN 

<DN> 

CF<2) 

^1 

<2K> 

2030 

IF AWS<>"J" THEN 2000 

<LY> 

1250 

CLOSE #3:RETURN 

<E(a> 

2040 

KG=1:RETURN 

<AE> 

1577 

REM 

<VE> 

2097 

REM 

<VC> 

1578 

REN UP KARTE ZIEHEN 

<LH> 

2098 

REM UP COMPUTERZUG 

<EX> 

1579 

REM 

<VT> 

2099 

REM 

<VK> 

1600 

IF NOT KG THEN RETURN 

<PE> 

2100 

GOSUB 2200 

<XY> 

1610 

PP=INT (RND (0) *3) -1-3 

<NL> 

2110 

IF KG=1 THEN ? #3?"J";RETURN 

<IW> 

1615 

PU(N)=PU(N)+PP 

<TK> 

2120 

7 #3; RETURN 

<BF> 

1620 

7 #3; "Dui*bÄSt,*" ;PP: ”*Pijinkt.e" :? #3;” 


2197 

REM 

<s;e> 

gezogen." 

<SG> 

2198 

REM UUP C0MPUTERENTSCHEIDUN6 

<DY> 

1630 

IF PU<N)>23 TI-EN 7 #3; ”DiJi*hast*verl 


2199 

REM 

<VM> 

oren ' 

; GEW^Ni- C N^ 1) - (N=2 > 

<MH> 

2200 

IF PU (NX 19 THEN Kß=l = RETURN 

<XU> 

1635 

IF PÜ(N>=23 THEN ? #3;"Du*ha5t*gewo 


2210 

IF PU(N)>20 THEN KG^= RETURN 

<TA> 

nnen \ 

! “;GEW=N 

<OH> 

2220 

IF PÜ(N+(N=1)-CN=2) XIS THEN KS=0;R 


1640 

RETURN 

<PR> 

ETURN 

<VZ> 

1697 

REM 

<VN> 

2230 

KG=1;RETURN 

<AF> 

1678 

REM UP ENDE 

<BE> 

2297 

REM 

<V6> 

1677 

REM 

<VV> 

2293 

REM UUP WINDOW GEFFNEN 

<FA> 

1700 

LX=34=LY=6:PaSITION 2,2:G0SUB 2300 

<UM> 

2299 

REM 

<VO> 

1705 

IF 6EW=3 THEN 7 #3= "Unentschieden !” 


2300 

POKE 153a,LX:P0KE 1539,LY:POKE 880, 


:? #3:GOTO 1730 

<MJ> 

255;OPEN #3,12,0,"W:":RETURN 

<YB> 

1710 

7 #3; *'Bravo,*‘';NS(6EW*20-19,GEW*20) 

<AK> 




1720 

7 #3; "Du*.hast*,ge Wonnen, " 

<.LM> 

Listing 3. Ein einfaches Spiel mit Windows (Schluß) 


Großes Proisaii»diroibeii 

Dieses Sonderheft haben wir 
für Sie gemacht, liebe Leser. 

Und damit Sie in Ihren Sonder¬ 
heften nur solche Themen vor¬ 
finden, die Sie auch wirklich 
interessieren, brauchen wir Ihre 
Meinung. Schließlich soll ein 
mögliches nächstes Atari-Son¬ 
derheft noch besser, interes¬ 
santer und informativer werden. 

Und damit wir wissen, was Sie 
wollen, schicken Sie bitte den 
ausgefüllten Fragebogen an 
uns zurück. 

Natürlich gibt es auch etwas zu 
gewinnen. Unter allen Einsen¬ 
dungen verlosen wir viele inter¬ 
essante Preise^ 

Um an tJer Verlosung teilzunehmen, müs¬ 
sen Sie den folgenden Fragebogen aus¬ 
füllen, ihn in ein Kuvert stecken und an 
unsere /Ndresse schicken: 


k 



• 2 Atari 1050-Diskettenlaufwerke, gestiftet von Atari 

• 1 Atari 1029-Drucker, gestiftet von Atari 

• 10 Gutscheine über je ein Buch freier Wahl aus 
dem Markt&Technik-Angebot 

• 5 Textverarbeitungs-Programme Atari-Schreiber 
für alle Atari-Computer, gestiftet von Atari 

• 20 T-Shirts im »Happy-Computer«-Look 

Redaktion Happy-Computer, Der Rechtsweg ist ausgeschlossen, 

MarktSTechnik Verlag AG, Brrsendeschluß ist der SO.Aprii 1986. 

Kennwort Atari-Sonderheft, 

Hans-Pinsei-Straße 2 , 8013 Haar (wb) 
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beeinflussen kann. Weiter¬ 
hin wird in diesem Kapitel 
auch waagrechtes und senk¬ 
rechtes Scrollen bespro¬ 
chen. 

Wer also mehr aus seinen 
Programmen machen möch¬ 
te, sollte auf »Das Atari- 
Buch, Band 2« zurückgrei¬ 
fen. Schließlich steckt im 
Atari mehr als nur ein einge¬ 
bautes Basic, (wb) 

Hans Lorenz Sehnender, Ruttetf Bichler, »Das 
Atail-Ggch, ßgnd &. Technik. 197 Sei¬ 

ten, ISBN 3-89090-072-0. Preis 32 Mark 


Sprühende Ideen 
mit Atari-Graphik 


SPRiÄSNDE 


fr^.ATAHiGRAPHfK 

’RwnBowtey 



Zielgruppe: Anfänger 
und Grafikinteressierte 

Mit einer Auflösung von 
320x192 Punkten und bis 
zu 256 gleichzeitig darstell¬ 
baren Farbschattierungen, 
ist der Atari-Computer kaum 
zu schlagen. Allerdings ist 
die Grafikprogrammierung 
nicht aut Anhieb verständ¬ 
lich. Vor allem wenn man 
seine Programme mit be¬ 
wegter Grafik ausschmük- 
ken möchte, wird es kompli¬ 
ziert. Die Player Missile- 
Grafik, die für Bewegung auf 
dem Bildschirm sorgt, läßt 
sich nämlich nur mit entspre¬ 
chenden Kenntnissen pro¬ 
grammieren. 

Wer animierte Grafik ein- 
setzen, mehr über die ver¬ 
schiedenen Grafikmodi des 
Atari-Computers wissen, 
eine neue Display-List erzeu¬ 
gen und einen neuen Zei¬ 
chensatz definieren möchte, 
findet zu diesen Themen 
jeweils ein eigenes Kapitel 
vor. Um Ihr neu angeeigne¬ 
tes Wissen auch gleich zu 
testen, wurden in das Buch 
Fragen eingebaut, die am 
Ende des Buches beantwor¬ 
tet werden. 


Im Anhang finden sich 
noch einige Arbeitsblätter 
zum Entwurf und zur Gestal¬ 
tung von Bildschirmen. Die¬ 
se Seiten sollte man sich 
natürlich fotokopieren, um 
diese wirWich sinnvollen Hil¬ 
fen immer wieder einzuset¬ 
zen. (wb) 

Tom Rowley. sSprühende Ideen mit Atari Gra- 
phik*, te-wi Vertag, 211 Seiten, 
iSßN 3-921803'39-K, Preis 49 Mark 


Atari 600XL/800XL 
Intern 



Zielgruppe: Fortgeschrit¬ 
tene und Profis 

Wenn Sie sich bereits in 
Basic auskennen, sich an¬ 
schließend der Maschinen¬ 
sprache zuwenden und 
gleichzeitig natürlich auch 
mehr über die Hardware des 
Atari-Computers wissen 
möchten, dann ist das Buch 
:^Atari dOOXUSOOXL Intern« 
für Sie ein unerläßliches 
Hilfsmittel. Angefangen von 
der Speicherverteilung, bis 
hin zu ausführlichen Erklä¬ 
rungen der einzelnen Spe¬ 
zialbausteine des Atari- 
Computers, findet man alles 
Wissenswerte. Ausführlich 
wird jedes einzelne Register, 
jeder wichtige Baustein be¬ 
sprochen, sei es der Antic 
(zuständig für Grafik), der 
GTIA {Bildausgabe) oder der 
Pökey (zuständig für Tonaus¬ 
gabe, Tastaturabfrage etc.). 

Im letzten Kapitel ist noch 
der Gesamtspeicherplan der 
Atari-Computer abgedruckt, 
der nochmals alle Adressen 
genau beschreibt. Wer also 
wirklich alles über seinen 
Atari wissen möchte, für den 
ist das Buch ^Atari 600XU 
800XL intern« ein absolutes 
Muß. (wb) 

Eicrtler. Grohmann, »Atari eOOXL'SOOXL 
IritecTid, Data Becker, 383 Seiten, 

3'S9011'053’3, Preis 49 Mark 


Das Atari Profibuch 



Zielgruppe: Fortgeschrit¬ 
tene und die es werden 
möchten 

Abgesehen von der ^t- 
was anderen Einleitung« mit 
viel Humor, verbergen sich 
im >Atari Profibuch« Informa¬ 
tionen, auf die man zukünftig 
nicht mehr verzichten kann. 
In diesem Buch findet man 
alles über Speicheradres¬ 
sen, die speziellen Bau¬ 
steine und die Besonderhei¬ 
ten des Atari. 

Vor allem den Besonder¬ 
heiten der Atari-Computer 
haben sich die Autoren in 
diesem Buch zugewandt So 
ist ein Hauptaugenmerk auf 
die Funktion des Antic- 
Bausteins und die verschie¬ 
denen GTIA-Grafikmodi ge¬ 
richtet. Auch Informationen 
darüber, wie man Bild¬ 
schirmscrollen realisiert, wie 
man den Display List Inter¬ 
rupt verändern kann und wie 
Interrupts allgemein anzu¬ 
sprechen sind, fehlen nicht 

Wer seinem Atari-Compu¬ 
ter schon immer mal besser 
klingende Töne entlocken 
wollte, findet zu diesem 
Thema ein eigenständiges 
Assembler-Programm vor. 
Und wen zuletzt noch die 
Anschlüsse der Atari- 
Computer interessieren, 
kann sich am Ende des 
Buches über eine Reihe von 
Bildern freuen, die jeden ein¬ 
zelnen Anschluß genaue- 
stens erklären. Sogar einen 
Schaltplan des 800XL kann 
das »Atari Profibuch« aufwei¬ 
sen. Mit diesem Buch wer¬ 
den einem also alle Tore, 
nicht nur zur Hardv^/arewelt, 
weit geöffnet. (wb) 


Julian ReschJffi. Andreas Wieüioff, »Das Atari 
Profibuch«, Sybex Vertag, 289 Seiten, 

ISBN 3 S8745-603-X, Preis 42 Mark 


6502-Assembler- 
Kurs für Beginner 



Zielgruppe: Fortgeschrit¬ 
tene 

Schon das Äußere des 
Buches weicht von der Norm 
ab. Es ist kein starres, 
gebundenes Buch, sondern 
eher als Paperback zu 
bezeichnen. Es bezieht 
seine Angaben auf den As¬ 
sembler TEX. AS ( = Terminal 
Extended Assembler}, wel¬ 
cher ebenfalls aus dem 
Hause Dripke stammt. 

Das Buch ist sowohl f ür die 
Theorie als auch für die Pra¬ 
xis geschrieben, so daß man 
es am besten am Computer 
bearbeitet. Die Assembler¬ 
befehle werden in kleinen 
Programmen vorgestellt, so 
daß die Wirkung aller 
Befehle sofort ausprobiert 
werden kann. 

Zwischen diesen mehr 
praktisch orientierten Kapi¬ 
teln sind andere mehr theo¬ 
retischer Art eingestreut, in 
welchen von Bits und Bytes, 
vom Speicheraufbau oder 
von den verschiedenen 
Adressierungsarten in der 
Assemblersprache gespro¬ 
chen wird. Sie sind, wie das 
ganze Buch, in einer locke¬ 
ren, leicht verständlichen 
Sprache geschrieben. Und 
hat man wirklich einmal 
etwas nicht verstanden, so 
kommt am Ende eines jeden 
Kapitels noch einmal eine 
Zusammenfassung, in wel¬ 
cher das Wichtigste der letz¬ 
ten Seiten wiederholt wird. 

(Arnd Wängler) 


Andreas Driphe, »6502-Assömblei'kurs für 
Beg^ner«, Interface Agc Verlag, ISBN: 
3-83936-000-1. Preis 29,80 JVtark 




































Basic-Schalter 

Möchte man das eingebaute Basic abschalten, 
muß man normalerweise den Atari-Computer 
erneut booten. Die Maschinencode-Routine 
»BSWITCH.COM« kann das genauso gut. 


Is man sich bei Atari dazu entschieden hat, das einge¬ 
baute Basic durch Drücken der OPTION-Taste nur 
während des Bootens zu desaktivieren, hat man 
einige Anwender nicht gerade glücklich gemacht. Doch die 
Notwendigkeit ständig neu zu booten, besteht nun nicht 
mehr, denn mit der kurzen Maschinensprachroutine 
»BSW1TCH.COM« kann man das Basic von DOS aus ein¬ 
beziehungsweise ausschalten. 

Tippen Sie zunächst das kleine Basic-Programm ab, das 
die benötigte Datei mit dem Namen »BSWITCH.COM« auf der 
Diskette erzeugt. Sie können nun durch einfaches Laden des 
Programms »BSWITCH.COM« das eingebaute Basic ein- 
oder ausschalten. Geben Sie dazu unter DOS 2.5 zunächst 
L ein. Betätigen Sie erschließend die RETURN-Taste und 
laden Sie dann das File »BSW1TCH.COM«. War das Basic zu 
diesem Zeitpunkt eingeschaltet, wird es ausgeblendet; war 
es ausgeschaltet, funktioniert das Ganze umgekehrt. 

Wichtiger Hinweis: Basic funktioniert nur dann einwandfrei, 
wenn beim Booten nicht OPTION gedrückt wurde! 

(Julian F. Reschke/wb) 


1000 REM Basic Switch V 1.0 <WW> 

1010 REM von Julian F_ R^schk© <ZB> 

1020 REM Cc> Happy Computer <EV> 

1030 REM <TH> 

1040 OFEN #2,Ö,e,BBWITCH*COM" <IN> 

1050 PRUEF=0 <IS> 

1060 FOR 1^1 TO 23 <GC> 

1070 READ WERTiFRUEF=PRUEF+WERT <JN> 

10S0 PUT #2,WERT:NEXT I <FZ> 

1090 CLOSE #2:IF PRÜEFO2301 THEN ? '^ERR 
OR“ <PX> 

1100 END <PR> 


1110 DATA^Z55,255,0,6,10,6,173,248,3,73, 
1,141,248,3,76,116,228,224,2,225,2,0,6 <SD> 


Basic-Listing »BSWITCH« 


iE0e 



■t 


ISIS 

Switch V 

1.0 

1020 

5 von Jalian F 

Reschke 

1030 

; (c) Happy Computer 1985 

1040 

_ 




1050 

5 


1060 

RÜNAB = ^02E0 

;Einsprungvektor 

1070 

BAS I CF = $^03F8 

;Basic-Flag 

10B0 

WARMSV ^ $E474 

;Warmstartvektor 

1090 



1100 

♦= $0600 


1110 



1120 

LDA EABICF 


1130 

EOR #1 

;Statue 'umdrehen' 

1140 

STA BASICF 


i 150 

JMP WARMSV 

^ War mst art machen 

1160 

? 


1170 

RUNAD 


1130 

m 


1190 

.WORD $0600 

;Einsprungvektor 

1200 

7 


1210 

-END 



Quell-Listing »BSWITCH« (MAC/65-Assembier) 


PROGRAMM-STECKBRIEF 

PrograTtimname 

ßasic-Schalter 

Program mtyp 

Utility 

Pfogrammiers prac he 

Atari“Basic (Assembler) 

Prognammlänge 

342 Byte 

für Computer 

800 Xiyiso XE 

zusätzliche Hardware 

Diskettenlaufwerk 

Eingabehitfe 

Prüfsummer 

Bemerkung 

Schaltet den Atari-Basic-Interpreter 
nach Belieben 
ein oder aus 

Leserservice 

Diskette (BSWITCH.BAS) 


BNtzschneUe 

Zeichen- 

Umwandlung 

Die interne Zeichendarstellung unterscheidet 
sich vom normalen Zeichensatz. Eine Maschinell- 
routine liest den Bildschirm und ordnet die gelese¬ 
nen Zeichen blitzschnell einem String zu. 

E f in gemeinsames lästiges Übel der meisten gängigen 
Heimcomputer ist, daß, je nach Situation, eine anders¬ 
artige Kodierung von Zeichen benutzt wird. Bei Atari- 
Computern muß man zwischen zwei verschiedenen Darstel¬ 
lungen unterscheiden. 

Die ASCII-Darstellung wird für alle standardmäßigen Ein- 
und Ausgaberoutinen des Betriebssystems verwandt. Für 
den Basic-Programmierer bedeutet dies: Alle Basic-Kom¬ 
mandos wie PRINT, INPUT, LOCATE etc arbeiten mit dieser 
Zeichendarstellung. 

Daneben gibt es noch die interne Darstellung von Zeichen. 
Diese findet man beispielsweise bei der Reihenfolge der Zei¬ 
chen in einem Zeichensatz oder bei der Kodierung der Zei¬ 
chen im Bildschirmspeicher vor. 

Gerade hier setzt das Programm »SCRSTR« an. Häufig gilt 
es, auf dem Bildschirm dargestelite Zeichen in eine normale 
Zeichenkette zu übertragen. Das Betriebssystem stellt zwar 
hierfür eine Funktion zur Verfügung, nämlich den LOCATE- 
Befehl, der aber auch Nachteile hat: Die einzelnen Zeichen 
müssen über eine Schleife von der Büdschirmposition in die 
Zeichenkette übertragen werden. Dies erfordert entspre¬ 
chend viel Zeit. Solche Verzögerungen sollte man aber bei 
Programmen, die auf Tastatur-Eingaben reagieren, vermei¬ 
den. 

Die Maschinenspracheroutine »SCRSTR« überträgt genau 
960 Zeichen (40 Zeichen pro Zeile multipliziert mit 24 Zeilen 
ergibt 960 darstellbare Zeichen auf dem Bildschirm in Grafik¬ 
stufe 0) eines normalen Textbildschirms in eine Zeichenkette 
Diese muß vorher unbedingt auf die 960 Zeichen Länge 
dimensioniert werden. Teile des Bildschirms können an¬ 
schließend problemlos als Teile dieser Zeichen kette behan- 
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delt werden. Hier ein Beispiel (SCREEN$ ist die benutzte Zei¬ 
chenkette): Die zweite Bildschirmzeile erhält man mit 
»SCREEN$(41,80)^c. Wird das 10, bis 20. Zeichen aus der 4. 
Zeile benötigt so müssen die Zeichen in SCREEN$ als Posi¬ 
tion 130 bis einschließlich 140 gelesen werden. 

Noch eine Anmerkung zum Basic-Programm. Nach dem 
Eintippen speichern Sie das Programm zunächst ab und 
geben RUN ein. F^lls die Daten für die Maschinensprache¬ 
routine fehlerhaft sind, erfolgt eine entsprechende Meldung, 
Ansonsten wird als Demonstration das Programm geLISTet 
und in die Zeichenkette SCREENS übertragen, die daraufhin 
auf dem Bildschirm ausgegeben wird. 

(Julian R Reschke/wb) 


PROGRAMM-STECKBRIEF 

Program mname 

Screen to String 

Programmtyp 

Utility 

Program m iersprache 

Basic (Assembler) 

Programm länge 

869 Byte 

für Computer 

800 XU130 XE 

zusätzliche Hardware 

Diskettenlaufwerk 

Eingabehilfe 

Prüfsummer 

Bemerkung 

Umwandlung von interner Darstellung 
in normalen Zeichensatz 

Lßseraervice 

Diskette (SCRSTR.BAS) 


1000 REM —- <wx> 

1010 REH Screen to String V 1.0 <ZÜ> 

1020 REH von Julian F- Reschke <ZE> 

1030 REM (c) Happy Computer 1985 <FV> 

1040 REM- <XJ> 

1050 REM <TIM> 

1060 REM String +uer Bildinhalt <KB> 

i070 D IM SCREENS(96ß):SCREENS C 960 > =”*" < 7E > 

1080 REM Bild tuellen <VW> 

1090 POKE S2,0=LIST <WT> 

1100 REM Routine definieren <WY> 

1110 DIM SCRSTR$C71):PRUEF=0 <LE> 

1120 FOR 1=1 TO 91 <1X> 

1130 READ WERT:SCRSTR^<I,i>=CHR^(WERT) <LB> 

1140 PRUEF=PRUEF+WERT:NEXT 1 <PA> 

1150 IF RRUEFO12436 THEH 2 "Fehler !“ = EN 
D <YV> 

1160 DATA^104,104,133,215,104,133,214,16 
5,SÖ,133,212,165,89,133,213,24,165,80,10 
5,192,133,216,165,89,105 <HC> 

1170 DATA^3,133,217,160,0,162,0,177,212, 
16,2,162,255,41,127,201,64,16,5,24,105,3 
2,203,9,201,96,16,5,56,233 <QP> 

1180 DATA*64,16,0,224,255,208,2,73,123,1 
45,214,230,212,208,2,230,213,230,214,203 
,2,230,215,165,212,197 <LY> 

1190 DATA*2i6,208,200,165,213,197,217,20 
8,194,96 <RM> 

1208 REH <TC> 

1210 REM Routine aufrufen <GF> 

1228 WERT=USR(ADR CSCRBTRS>,ADR(SCREENS >} <QC> 
1230 REM SCREENS au^eben <KT> 

1240 PRINT SCREENS <TH> 


ßasic-Programm zu »SCRSTR« 


1008 

7 

.. ... ... 


1340 

LDA (FRß),Y 


1010 

; Screen 

to String V 1.0 


1350 

BPL NICHT_INVERS 

1020 

;von Juilian F» Rescbke 


1360 

LDX #$FF 


1030 

; (c> Happy Computer 1985 


1370 

NICHT_INVERS 


1040 

5 

—-- 


13S0 

AND #^7F 


1050 

5 



1390 

CMP #64 


1060 

SAVMSC = 

= ^58 ; Vektor auf 

Anfangs 

1400 

BPL GR_64 


adresse des Bildspeichers 


1410 

CLC 


1070 

FR0 = 

SD4 


1420 

ADC #32 


1080 

DEST = 

^D6 5 Zeiger auf 

String 

1430 

BNE FERTIG 


1090 

ENDE - 

^D8 ; Zeiger auf 

Ende de 

1440 

GR_64 CtIP #96 


s Bildes 



1450 

BPL FERTIG 


1100 

7 



1460 

SEC 


1110 

* = 

^0600 ; Programm iet versc 

1470 

SEC #64 


hiebbar 



1480 

BPL FERTIG 


1120 

7 



1490 

FERTIG 


1130 

PLA 

;Anzahl der 

Paramet 

1500 

CPX #$FF 

1 Invers gewesen? 

er 




1510 

BNE WAR_NICHT 

1140 

PLA 

; Anfangsadresse des 

1520 

EOR #*80 

5 Invertieren 

Strings 



1530 

WAR_NICHT 


1150 

STA 

DEST-H 


1540 

STA (DEST),V 

f 

1160 

PLA 



1550 

INC FR0 


1170 

STA 

DEST 


1560 

BNE KEIN_CARRY 

1180 

;Adr. des Bi1dsp _ hoien 


1570 

INC FR0+1 


1190 

LDA 

SAVHSC 


1580 

KEIN_CARRY 


1200 

STA 

FR0 


1590 

INC DEST 


1210 

LDA 

SAVHSC+1 


1600 

BNE KEIN_CARRY2 

1220 

STA 

FR0+1 


1610 

INC DEST+1 


1230 

;Ende des Bi1dsp- berechnen 


1620 

KEIN_CARRY2 


1240 

CLC 



1630 

LDA FR0 

;Ende? 

1250 

LDA 

SAVMBC 


1640 

CtiP ENDE 


1260 

ADC 

# <960 


1650 

BNE CONVERT 


1270 

STA 

ENDE 


1660 

LDA FR0+1 


1280 

LDA 

SAVMSC+1 


1670 

CMP ENDE+i 


1290 

ADC 

# >960 


1680 

BNE CONVERT 


1300 

STA 

ENDE+1 


1690 

5 das war"s 


1510 

;Hauptschleif e 


1700 

RTS 


1320 

CONVERT 

LDY ^0 


1710 

7 

QuelEUsting zu »SCRSTR«c 

1530 

LDX 

#0 


1720 

.END 

(MAC/65-Assembler) 










































Bildschimausschnitt 
schnell gelöscht 


Erfolgen häufig wechselnde Bildschirmausgaben, 
sollten bestimmte Ausschnitte des Monitors auch 
gleich wieder frei sein. 

anchma! ist es ganz nützlich, wenn man bestimmte 
Bildschirmbereiche schnell löschen kann. Zwar ist 
dies durchaus von Basic aus realisierban allerdings 
etwas langsam. Schneller geht es in Maschinenspracha Die 
kurze Routine »Bildloesch« läßt ein beliebig großes Feld auf 
dem Bildschirm im Bruchteil einer Sekunde verschwinden. 

Die Maschinen-Unterroutine wird durch die Programm¬ 
zeilen 1000 bis 1120 in den Speicherbereich ab 1536 ge- 
POKEt. Hierbei handelt es sich um die Page 6, die besonders 
für kurze Maschinenroutinen geeignet ist. Der Aufruf des. 
Programms erfolgt mit »X=USR(1536,SC-1 + DS,ZEI¬ 
LEN,SPALTEN)«. 

Dabei enthält SC die Bildschirmstart-Adresse Von Basic 
aus läßt sich dieser Wert auch mit den Adressen 88 und 89 
ermitteln. SD stellt die absolute Bildschirmposition dar. Sie 
wird mit Zeile X 40+Spalte errechnet ZEILEN gibt die Anzahl 
der Zeilen und SPALTEN die Anzahl der Spalten an, die das 
zu löschende Feld umfassen soll. 


PROGRAMM-STECKBRIEF 

Programm naiTie 

Sildloesch 

Programm typ 

Utility 

Programm iers prache 

M asch ine nsprach e 

Programm länge 

690 Byte 

für Computer 

800 XU130 XE 

zusätzliche Hardware 

keine 

Eingabehilfe 

Prüfsummer 

Bemerkung 

löscht Teile des ßildschimris 

Leserservice 

Diskette (8L0ESCH.BAS) 


TB BEH 0ER ÄliFSElIF EWFBjiQT. MET 

sa HEM 51=05*1 'SC,; 


4a SEK ^ 

LBB 

LTB cataäf 

128 


E. ^ 



IBIM 


1BT3: 


1033 

T3P 

1038 

fliaf SlHTCmjEB » “: S 

iiae 

iS 

lila 

4IS, iXS, Z«S> 


1 

1128 DATA IZS,. ISS ,,17-7 
283,231,36 

^ i»5 , S * iäS * 1.77 , , 


Hier ist bereits ein Teil des Bildschirms gelöscht 


ln der vorliegenden Form funktioniert die Routine »Bild- 
loesch« nur in Grafikstufe 0. Weiterhin noch in den Grafikstu- 
fen, die 40 Byte pro Zeile in Anspruch nehmen. Ansonsten 
muß der vorletzte Wert in Zeile 1110 entsprechend angepaßt 
werden. Soll das Programm beispielsweise in Grafikstufe 1 
verwendet werden, muß hier der Wert 20 anstatt 40 stehen. 

{Wolfgang Czerny/wb) 


10 REM LGESCHEN VON BILDTEILEN <GS> 

20 REM DER AUFRUF ERFOGT MIT <OM> 

30 REM X=USRCI536,SC,ZEILEN,SPALTEN) <KX> 

40 REM ** VON WDLFGANG CZERNY <WO> 

70 GRAPHICS 0:LIST <HS> 

100 GOSUB 1000 <QI> 

110 SC=PEEK (SS)+256*PEEK CSV) <FS> 

120 ZEILE=10:SPALTERS <SO> 

125 DS=2EIL£#40+SPALTE <EC> 

130 X^SR (1536,SC-1+DS, 10,20) <YJ> 

140 GOTO 140 <NG> 

1000 REM UNTERPROGRAMM NACH 1536 <WW> 

1010 S=0:RESTORE 1100 <OX> 

1020 FOR A=1536 TO 1575:READ D=POKE A,D= 
5=5+D:NEXT A <LQ> 

1030 IF S0556S TUEN ? DATEN-FEHLER ! “ : S 
TOP <WZ> 

1070 RETURN <PU> 

1100 DATA.<^104,104,133,177,104,133,176,10 
4,104,170,104,104,133,178 <LZ> 

1110 DATA*164,178,169,0,145,176,136,208, 
251,24,165,176,105,40,133 <KQ> 

1120 DATA^176,165,177,105,0,133,177,202, 
208,231,76 <AS> 


Basic-Listing zu »Bildloesch« 


0100 

; ■it' Loesehen 

einzelner 

0110 

; Bildausschnitte 6r^0 

0120 

;***** > 

:=USR(1536,SCPOS,Y,X) 

0130 


*= 

S0600 


0140 


PLA 



0150 


PLA 


;SCPOS NACH 

0160 


STA 

^B1 

;S00B0 UND 

0170 


PLA 


;#00B1 

0180 


STA 

^B0 


0170 


PLA 


;ZEILEN IN 

0200 


PLA 


- X^^^G. 

0210 


TAX 



0220 


PLA 


;SPALTEN 

0230 


PLA 


;NACH #B2 

0240 


STA 

^E2 


0250 

LI 

LDY 

SB2 

;#B2-YREG. 

0260 


LDA 

#0 

;LEERZEICHEN 

02S0 

L2 

STA 

(^B0>,Y 

;SPEICHERN 

0270 


DEY 


;ZEILE 

0300 


BNE 

L2 

;ZU ENDE? 

0310 


CLC 



0320 


LDA 

#B0 

;ADDIERE 

0330 


ADC 

##2S 

i40 SPLATEN 

0340 


STA 

#B0 

;ZU SCPOS 

0350 


LDA 



0360 


ADC 

##00 


0370 


STA 

#B1 


0380 


DEX 


;ALLE ZEILEN 

0390 


BNE 

LI 

;FERTIG? 

0400 


RTS 


;RETURN 

Quell-Listing zu 

»ßildloesch« (MAC/$5) 
































Daten schnell 
zur Hand 

Bilder, Daten und Variablen lassen sich mH »Turbo 
10« blitzschnell von Diskette laden. 

E ' s ist allgemein bekannt, daß im Betriebssystem des 
Atari-Computers sämtliche wichtigen Routinen für 
Ein- und Ausgaben bereits enthalten sind. Unter Basic 
ist die Auswahl allerdings beschränkt: Man kann die Befehle 
GET und PUT benutzen, die allerdings immer nur ein einzel¬ 
nes Zeichen lesen beziehungsweise ausgeben. Eine Alter¬ 
native stellen die Befehle PRINT und INPUT dar. Allerdings 
kann man mit diesen Befehlen nur maximal 125 Zeichen auf 
einen Massenspeicher schreiben und lesen. 

Die Funktionen der CIO heißen nun »GET CHARACTERS« 
und »PUT CHARACTERS«. Sie sind zwar als die Befehle 
BGET und BPUT in Basic XL, Basic XE und im Turbo-Basic XL 
definiert, im Atari-Basic fehlen sie aber. Daher soll hier 
gezeigt werden, wie man sie über eine Maschinensprachun- 
terroutine unter Atari-Basic ansprechen oder simulieren 
kann. 

Für Ein- und Ausgaben stehen auf dem Atari acht »Kanäle« 
{0 bis 7} zur Verfügung. Zu jedem dieser Kanäle gibt es einen 
sogenannten lOCB (InpuVOutput-Control-Block). Für uns 
sind hier allerdings nur drei Register interessant. 

iCCOM: Über dieses Register gibt man die Nummer des 
auszuführenden Befehls an. (Beispiel: »7« bedeutet »PUT 
CHARACTERS«, »11« bedeutet »GET CHARACTERS«.). Als 
nächstes interessiert uns die Zwei-Byte-Variable ICBADR, 
über die die Anfangsadresse des zu lesenden beziehungs¬ 
weise zu schreibenden Speicherbereiches festgelegt wird. 
Zuletzt folgt noch ICBLEN. Hier gibt man die Anzahl der zu 
übertragenden Zeichen an. 

Bevor man die Schneiladeroutine anspricht, muß ein Kanal 
bereits geöffnet sein. Jetzt folgt also nur noch der Sprung 
nach ClOV {$E456}, und die gewünschte Funktion wird aus¬ 
geführt. Der Statuscode der Operahon kann übrigens über 
das Y-Register abgefragt werden. Wir übertragen den Wert in 
die Variable FRO {$D4) in Seite 0. Über die USR-Routinen 
können dann die Ergebnisse an das Basic-Programm zurück¬ 
gegeben werden. 

Falls nach RUN die Meldung »Fehler« ausgegeben wird, 
haben Sie einen Wert in den DATA-Zeilen falsch eingegeben. 
Korrigieren Sie in diesem Fall bitte das Programm. 

Natürlich lassen sich auch Inhalte von Zeichenketten oder 
Zeichensätzen laden und speichern. Hier sind der Phantasie 
keine Grenzen gesetzt. 

(Julian F. Reschke/wb) 


PROGRAMM-STECKBRIEF 

ProgrammnaiTie 

Turbo IO 

Programmtyp 

Utility 

Program mJersprache 

Atari-Basic (Assembler) 

Programmlänge 

1146 Byte 

für Computer 

800 XU130 XE 

zusätzliche Hardware 

Disketten laufwerk 

Eingabehitfe 

Prüfsummer 

Bemerkung 

Schnelles Laden und Speichern von 
Daten 

iBsersorvice 

Diskette {TURBOIO.BAS) 


imm 

REM--— — ^ — 


<WX> 

1Q10 

REM Turbo-I/O V1.0 


<FB> 

1020 

REM von Julian F- Reschk© 


<ZE> 

1030 

REH Cc> Happy Compu-ter 19S5 


<F9> 

1040 

REM------ 


<XJ> 

1050 

DIM TURB0^C39> 


<JE> 

1060 

PRÜEF=0 


<IV.^ 

1070 

FOR 1=1 TO 39 


<LA> 

1080 

READ WERT:TURBO# <I,I)=CHR# C WERT) 


<FX> 

1090 

FRUEF=PRUEF-H4ERT 


<VH> 

1100 

HEXT I 


<ER> 

1110 

IF PRUEF03595 THEN ? "Fehler 1:END 





<MO> 

1120 

DATA^104,104,104,10,10,10,10,170, 

10 


4,104,157,66,3,104,157,69,3,104,157,68 


<XV> 

1130 

DATA...3 ,104,157,73,3,104,157,72,3, 

32 


,86,228,132,212,169,0,133,213,96 


<KD> 

1140 

REH 


<TM> 

1150 

REM Zur Dentonstration: 


<GY> 

1160 

GRAPHICS 24=SETCQLÜR 2,0,0zCOLOR 

1 

<AH> 

1170 

FOR 1=0 TO 319 STEP 5 


<MD> 

1180 

PLOT I,0=DRAWTD 319-1,191 


<LC> 

1190 

NEXT I 


<FS> 

1200 

FOR 1=0 TO 191 STEP 3 


<HU> 

1210 

PLOT 0,I:DRAWTO 319,191-1 


<PD> 

1220 

MEXT r 


<EZ> 

1230 

REM 


<TL> 

1240 

REH Bild abspeichern 


<BI> 

1250 

REM AnTangsadresse; PEEKCSS)+256*PE 


EKte9} 


<WP> 

1260 

REM Laenge: 192*40=7680 


<LM> 

1270 

REM BeTehl: Schreiben=ll 


<JC> 

1280 

□PEN #i,8,0,"D:TEST-PIC" 


<(3M> 

1290 

0=U5R CADR(TURBO*) ,1,11,PEEK CB8> +256 


*REEK(e9),7680) 


<MG> 

1300 

CLOSE #1 


<MP> 

1310 

REM Bild loeschen 


<DL> 

1320 

GRAPHICS 24:SETCaLaR 2,0,0 


<TP> 

1330 

REM Bild laden; BeTehlscode 7 


<NP> 

1340 

OPEN #1,4,0,"DiTEST,PIC" 


<NY> 

1350 

□=USR(ADR(TURBO*),1,7,PEEK(88)+256* 


PEEKC89>,76B0)-CLOSE #1 


<XU> 

1360 

GOTO 1360 


<RW> 

Listing 1. »Turbo lO« als Easic-Lader 


1000 ;--- 

1010 ;TurbD-I/0 VI.0 

i02ß ;von Juli an F, ReechJce 
10^0 ;Happy Computer 

1040 ;------ 

1050 ; 

1060 AD 




1070 

f 



10SO 



SD4 

1090 

ICCOM = 

$0342 

1100 

ICBADR = $0344 

niQ 

ICBLEM = 

: $0348 

1120 

ClOV = 

$E456 

1130 

5 



1140 


*= 

$0600 

1150 

5 



1160 


PLA 

;Anzahl der PÄr*met 

er 




1170 


PLA 


1180 


PLA 

; K^nal rnjmmer 

1190 


ASL 

A ;*16 

1200 


ASL 

A 

1210 


ASL 

A 

1220 


ASL 

A 

1230 


TAX 


1240 


PLA 


1250 


FLA 

; Kiommandonuimmer 

1260 


STA 

ICCOM,X 

1270 


PLA 

;Adresse 

12B0 


STA 

ICBADR+1,X 

1290 


PLA 


1300 


STA 

ICBADR,X 

1310 


PLA 


1320 


STA 

ICBLEN+l,X 

1330 


PLA 


1340 


STA 

ICBLEN,X 

13S0 


JSR 

CIQV in's DS 

1360 


5TV 

FR0 $ Feh1ercode 

1370 


LDA 

#0 

1380 


STA 

FR0+1 

1390 


RTS 


1400 

- 



1410 


- END 


List'mg 2. Quelltext zu i>Turbo 10« (MAC/65-Assembler) 































Wortumbruch 

perfekt 

Ohne Rücksicht auf Verluste - sprich Trennregeln 
- werden unter Basic Worte einfach »zerrissen«. 
Mit der kurzen Routine »Wordwrap« passiert das 
nicht mehr. 


UMM er schon einmal versucht hat, ein Textadventure in 
Basic zu schreiben, kennt das Problem: Man kann 
W W zvrar das Spiel auf dem Bildschirm verfolgen, aber 
einige Wörter werden am rechten Rand einfach »auseinan¬ 
dergerissen«. Diesem Manko setzt nun unsere kurze Routine 
»Wordwrap« ein Ende - und das, ohne beim Programmieren 
lange »herumzutüfteln«. Die kurze Maschinenroutine läuft auf 
allen XL- und XE-Modellen. Der auszugebende Text muß zu¬ 
nächst einmal in einem maximal 255 Zeichen langen String 
stehen. Ein String mit dem Namen TEXTS soll nun auf dem 
Bildschirm dargestellt werden. Der Aufruf der »Wordwrap«- 
Routine erfolgt dann mit: »X=USR{Adresse,ADR(TEXT$), 
LEN{TEXT$})«. [3er Wert »Adresse« bezieht sich dabei auf die 
Anfangsadresse der »Wordwrap«-Routine im Speicher (sie 
wird in einem String abgelegt). 

Weiterhin ksuin man noch den rechten Rand mit »POKE 
83,X« und den linken Rand mit »POKE 82.X« festlegen. Aller¬ 
dings darf eine Zeile dann nicht kürzer als das längste ver¬ 
wendete Wort sein. (Bastian Robin/wb) 


PROGRAMM-STECKBRIEF 

Pfogrammname 

Wortumbruch 

Programmtyp 

Utility 

P rog rammiersprache 

Maschi nensprache 

Prograimnlänge 

1701 Byte 

für Computer 

800 XD130 XE 

zusätzJiclie Hardware 

keine 

Eingabehilfe 

Prüfsummer 

Bemerkung 

Bei Textausgabe auf dem Bildschirm 
immer zusammenhängende Worte in 
jeder Zeila 

Leserservice 

Diskette (WORDWRAPBAS) 


50 REM ^‘^*^*^**-ik*^*^**************-vt-^^ 

51 RErt * DeuiQ Programm fuer den * 

52 REM * Wordprozessor- Eingabeteil * 

53 REM *’)t*»***-»tit*****-it-»t-ifr*»****«-****-i(-* 

100 DIM T*(255) 

105 OPEN 

106 POKE 62,10:PGKE ^,30 

110 RESTORE :? ”^ESC CTL < J; POSITION 5, 
6: ? “A> *Te>ctj.ohnej..RB*WDrdprozessor " : POSI 
TION 5,10:? "B) tARB^Wordprozesso 

r” 

120 6ET A=66 THEN 200 

130 IF A065 THEN 120 

140 ? "CESC CTL <>":? :FOR W=1 TO 9 

150 READ T*:? T$;:NEXT 0 

160 ? :? **<£SC CTL ->R £TURN ”;: INPUT TSzB 
OTO 110 

200 ? "^ESC CTL <>":? :FÜR W=1 TO 9 
210 READ T#=SQSUB 100O:NEXT W 
220 GOTO 160 

990 REM ****if-*Ht*^(‘****-it *♦*»********■*■** 


991 REM * Das folgende 6502 Untei— ^ 

992 REM * Programm druckt den Text— * 

993 REM * String ohne Zerreissen * 

994 REM * von Woertern Zeile -fuer * 

995 REM * Zeile auf dsn Bildschirm- * 

996 REM * Laenge und Adresse des * 

997 REM * Strings werden an das 

998 REM * UnterprograiBfn uebergeben- * 


999 REM ^■«'^■it-int»***^^********-«:********* 

1000 A=ADR tT$ >:L=LEN(T^) 

1040 X=IJSRCADR<"hbC CTL E ^LhC CTL E> KbhpGC 
CTL E > M) CCTL A> CCTI^J g^CCTL B>*-CCTL ,>CC 
TL D^NlKI- .p<CTL N>^ Sg-f N^NDMp+Pm“ <.ESC CTL 
>:> hHDMp ^:CTL F> lKI^Pt C CTL CCTL X>eUESt 
CTL F> CCTL H> N^NDMp -CCTL OlKiCTL 
Xlt CTL P>J> CCTL ,>C CTL MI ^pCCTL B> €CTL -> 
"),A,L) 

1050 RETURN 

1991 REM * Data—Zeilen ^uer * 

1992 REM * Ad venture Text * 

2000 DÄTA-LDua.stehstAani,^.Eingang^e£ ner^gew 
al t i gen^Hoehl e - j.Li nks*neben*di r*-f uehr tu..e 
i n-i.Pf ad*nach^Westen ; -.er^Lsi eht 
2010 DATA*., i eml i ch^ver wi 1 dert ^aus*und* 
wi r d^vonAgewal ti gen-i.Grashal men*verdeckt - 
*^*schei nt *i ns* verwunschen e*T al 
2020 DATA*,*zu*fuehren _ *Richtung*Osten*e 
rhebt*sich*ein*gewaltiger*Huegel*der*an* 
diB*Hoehle*angrenzt p *Ausserdem 
2030 DATA*,*dringen*aus*der*Hoeh1e*pIoet 
z 1 i ch*mer kwuer di ge*Laute ; *si e.^wer den*! mm 
er*lauter*und*es*hat*den 

2040 DATA*,*Anschein*als*haetten*sie*Dic 
h*entdeckt-.n-**Was*nun? 


<IC> 

<RD> 

<TT> 

<II> 

<£E> 

<BZ> 

<WB> 


<ZW> 

<EK> 

<EL> 

<IH> 

<C«> 

<KM> 

<IA> 

<XS> 

<NZ> 

<MU> 

<WV> 

<0E> 

<SY> 

<SK> 

<RZ> 

<DV> 

<VQ> 

<IX> 

<NV> 

<HE> 


<Ba> 

<pi> 

<RP> 

<6U> 

<ej> 

<SB> 


<NW> 


<DW> 


<KA> 


<EZ> 

<HY> 


Listing zu »Wordwrap« 


Du. 5 «3» £:iEa:T53-n:gr 

Er .seh. 

ss-ÄTt-en-; skch:. ^ 





Du a« 'eiaer - , V■ 

5ewtTi«£^ : , 

si.eh.t ic.b 

t!',. ■■. Er - ■ ^ ^ ■" ■ ■ 

v.er’vras’clseü-e TaJi' i ^ 






ll’r’- 'ij i' . ‘ ’ 


Hier sind die Texte am rechten Rand zerstückelt. Es fäüt 
einem schwer, den Text zu lesen, da man am Ende einer Zeile 
den Rest des Wortes in der nächsten Zeile suchen muß. 


Mit der Routine »Wordwrap« werden Worte am rechten Rand 
nicht abgeschRitten. Man kann den Text fEössig lesen. Neben¬ 
bei wirkt diese Darstellung auch viel professioneller. 
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Seitensprung 
ins Betriebssystem 


Einige brauchbare Betriebssy- 
stem-4loutinen lassen sich auch 
von Basic aus nutzen. Wir zeigen 
ihnen wia 

0 er Atari-Computer enthält ins¬ 
gesamt 24 KByte ROM, von 
denen das Basic genau ein Drit¬ 
tel, also 8 KByte eännimmt. Den ande¬ 
ren Teil beansprucht das Betriebs- 
systen. 

Dieses enthält alle wichtigen Unter- 
programmei die der Computer schon 
nach dem Einschalten benötigt So ist 
beispielsweise Basic zu aktivieren, sind 
Peripheriegeräte anzusteuern und ähn¬ 
liches mehr. Das Basic selbst verwen¬ 
det ständig Routinen des Betriebssy¬ 
stems - dies ist auch der Grund dafür, 
warum im Basic-Interpreter so viele 
Befehle zur Verfügung stehen. Es ist 
beachtlich, daß dafür nur 8 KByte ROM 
genügen. 

Nichts, was mit Ein- und Ausgaben zu 
tun hat, wie beispielsweise die Befehle 
PRINT, GRAPHICS, IN PUT oder OPEN 
erledigt das Basic selbst Es spielen 
dabei immer Unterprogramme des Be¬ 
triebssystems mit 

Da es die Atari-Computer bereits seit 
etwa sechs Jahren gibt und auch ver¬ 
schiedene Versionen{400/800/600XLj' 
800XL/130XE) existieren, wurde das 
Betriebssystem mehrfach geändert. 
Wie soll man nun wissen, an welcher 
Stelle ein bestimmtes Unterprogramm 
zu finden ist? 

Atari hat zum Zeitpunkt der Entwick¬ 
lung des Betriebssystems vorausge¬ 
plant So wurde dem Atari-Computer 
eine sogenannte »Sprungleiste« mit auf 
den Weg gegeben. Das bedeutet daß 
man Unterprogramme nicht an ihrer 
eigentlichen Position im Speicher auf¬ 
ruft, sondern an einer festen Stelle in 
einer Tabelle von Einsprungvektoren, 
die sich garantiert nicht ändert. Ein Bei¬ 
spiel: Ob auf dem Atari 400 oder dem 
Atari 130 XE, mit einem Sprung nach 
Adresse $E477 (siehe Tabelle) wird ein 
Kaltstart ausgeführt. Bei $E477 selbst 
steht nur ein Sprungbefehl zur eigentli¬ 
chen Kaltstart-Routine. Wo sich diese 
befindet, muß der Programmierer nicht 
unbedingt wissen. 

Dieser Aufbau hat noch einen großen 
Vorteil: Wer sich nämlich ein anderes 
Betriebssystem-ROM in seinen Com¬ 
puter einbauen läßt oder sich ein modifi¬ 
ziertes Betriebssystem in den RAM- 


Bereich von $C000 bis $FFFF lädt, 
kann davon ausgehen, daß alle Pro¬ 
gramme, die sich an die Sprungtabelle 
halten, auch auf Ihrer Betriebssystem- 
Version laufen. So kann man mit einem 
veränderten Betriebssystem beispiels¬ 
weise einen RAM-Disk-Treiber für den 
130 XE einbauen, der dann nicht nur 
unter DOS 2.5, sondern mit allen Pro¬ 
grammen mit Diskettenzugriff funktio¬ 
niert. Ein solcher Treiber für den zusätz¬ 
lichen Speicher ist in verschiedenen 
Spielen bereits integriert. 

Betrachten wir die Tabelle der Ein¬ 
sprungadressen, die auf den ersten 
Blick ziemlich kurz aussieht. Dies liegt 
ausschließlich daran, daß einige der 
Routinen fast universell einsetzbar 
sind. Die Sprungleiste beginnt bei der 
Adresse 58448 ($E450}, und jede 
Einsprungstelle belegt natürlich 3 Byte 
(nämlich 1 Byte für einen Maschinen- 
sprache-»JMP« (Sprungbefehl) und 2 
Byte für die Adresse). Jede Einsprung¬ 
adresse hat eine feste Bezeichnung, 
die von Atari in den entsprechenden 
technischen Dokumentationen vorge¬ 
geben wurde. Ideal wäre es, wenn sich 
jeder an diese Benennungen halten 
würde. Dann wäre eine einheitliche 
Namensgebung gewährleistet und 
andere Programmierer könnten sich 
schneller in fremde Programme hinein¬ 
denken. Jeder Name eines Einsprungs 
hat als letzten Buchstaben ein »v«, als 
Erinnerung daran, daß es sich ja nur um 
einen Vektor handelt, und nicht etwa um 
die tatsächliche Adresse der Routine im 
Betriebssystem-ROM. 


Fünf Sprünge in die Tiefe 


Der zweite Teil der Liste enth^t fünf 
Einsprüngei die man nur auf dem 600 
XL, 800 XL und 130 XE nutzen sollte. 
Programme, die auf dein Atari 400 und 
800 laufen sollen, dürfen diese Ein¬ 
sprünge auf keinen Fall verwenden! 
Man sollte sich also folgendes merken; 
Programme, die für alle Geräteversio¬ 
nen bestimmt sind, dürfen nur Ein¬ 
sprungadressen zwischen $E450 und 
$E47F benutzen. Alle anderen Aufrufe 
von Routinen im Bereich ab $0000 auf¬ 
wärts sind illegal. 

Nach diesen Vorüberlegungen kom¬ 
men wir zu den einzelnen Routinen. 
Hier muß man einerseits zwischen den 
Routinen unterscheiden, die für den 
Basic-Programmierer interessant sind 
und andererseits zwischen denen, die 


nur auf Maschinenspracheebene von 
Bedeutung sind. Beginnen wir mit einer 
kurzen Übersicht über die einzelnen 
Funktionen: 

68448 $E460 - DSKIV 
Über diese Routine kann man den 
seriellen Bus für die Benutzung der Dis¬ 
kettenstation initialisieren. 

58451 $E453 - DSKINV 
Ein- und Ausgaberoutine für die Dis¬ 
kettenstation, über die man einzelne 
Diskettenoperationen ausführen kann 
(beispielsweise Sektoren lesen oder 
schreiben). 

58454 $E456 - ClOV 
Dies ist der Einsprung für das wichtig¬ 
ste Unterprogramm des Betriebssy¬ 
stems, der CtO. Über die CIO (Central 
Input/Output Utility) können alle stan¬ 
dardmäßigen Ein- und Ausgabeopera¬ 
tionen durchgeführt werden (Datei öff¬ 
nen, Bytes schreiben, Bytes lesen 
eta). Bis auf zwei Befehle nämlich, 
BPUT und BGET (siehe auch den Arti¬ 
kel über eine Schnell-Laderoutine in 
diesem Sonderheft), sind alle CIO- 
Funktionen auch über Basic-Befehle 
ansprechbar. 

58457 $E459 - SIOV 
Einsprung in die Ein- und Ausgabe¬ 
routine für den seriellen Bus. Mit dieser 
Routine kann man alle Ein- und Ausga¬ 
ben über den seriellen Bus durchfüh¬ 
ren, unter anderem natürlich auch die 
unter DSKINV aufrufbaren Funktionen. 
58460 $E45F - SETVBV 
Diese Routine kann Vektoren von 
wichtigen Betriebssystemroufinen än¬ 
dern. Dafür ist eine eigene Routine 
nötig. Wird nämlich ein Vektor in dem 
Moment aufgerufen, in dem man ihn 
verändert, kann dies einen Systemab¬ 
sturz zur Folge haben. Um einen Vektor 
zu ändern, muß man zunächst das X- 
und das Y-Register (High- und Ijow- 
Byte) mit dem gewünschten Wert 
laden. Mit dem Akku legt man dann den 
zu verändernden Vektor beziehungs¬ 
weise Zähler fest 

Wert Name Bedeutung 

0 VIMIRQ IRQ-Vektor 

1-5 CDTMVI-5 Systemzähler 1-5 

6 WBLKI Vektor auf 

Immediate-VBI 

7 WBLKD Vektor auf 

Deferred-VBI 

58463 $E45F - SYSV8V 
Routine zur Beendigung des 
Immediate-VBI (Vertical Blank Inter¬ 
rupt). 



















58466 $E462 - XITVBV 
Routine zur Beendigung des De- 
ferred-VBl. 

58469 $E465 - SIOINV 
Routine zur Initialisierung des Pokey- 
Chips, der beim Einschalten nicht initia¬ 
lisiert wird. 

58472 $E468 - SENDEV 
Pokey-Chip auf Ausgabe stellen. 
58475 $E468 - INITIV 
NMI-Interrupts initialisieren. 

58478 $E46E - ClOiNV 
Routine zur Initialisierung der CIO 
(siehe oben). 

58481 $E471 - BLKBDV 
Vektor für den Basic-Befehl BYE, der 
beim Atari 400/800 in den Memo-Rad- 
Modus und bei den neueren Geräten in 
den Selbsttest führt. 

58484 $E474 - WARMSV 
Vektor für den Warmstart: entspricht 
dem Drücken der RESETTaste 
58487 $E477 - COLDSV 
Vektor für den Kaltstart; entspricht 
dem Aus- und Einschalten des Compu¬ 
ters (allerdings wird der zusätzliche 
RAM-Bereich des XE nicht gelöscht). 
58490 $E47A - RBLDKV 
Einen Block vom Kassetten-Recor- 
der einiesen. 

58493 $E47D - CSOPIV 
Einen Kanal für das Lesen von Daten 
vom Kassetten-Recorder öffnen. 
58496 $E480 - PUPDIV 
Sprung zum Einschaltbild, das beim 
XL und XE dem Selbsttest entspricht. 
58499 $E483 - SLFTSV 
Sprung in den Selbsttest. 

58502 $E486 - PHENTV 
Eintrag in der Gerätetreibertabelle 
vornehmen. 

58505 $E489 ~ PHULNV und 
58508 $E48C - PHINIV 
Spezielle Routinen für die Benutzung 
des parallelen Busses. 

Die Erfahrung zeigt, daß von den auf¬ 
geführten Routinen nur acht häufiger 
benutzt werden. Dies sind natürlich 
zunächst einmal die Einsprünge für 
Warmstart (von Basic: USR(58484)) 
und Kaltstart {USR{58487)}. Dazu 
kommen SETVBV, SYSVBV und XITVBV. 
die bei Interrupt-Routinen des öfteren 
notwendig sind. Es bleiben die drei Ein- 
und Ausgaberoutinen DSKINV, ClOV 
und SIOV. 

Da alle ClO-Funktionen (bis auf die 
oben genannte Ausnahme) direkt über 
Basic-Befehle ansprechbar sind, blei¬ 
ben also für den Basic-Programmierer 
noch die beiden Routinen DSKINV und 
SIOV. 

Sie steuern die Ein- und Ausgaben 
über den seriellen Bus, wobei DSKINV 
sozusagen eine auf die Diskettensta¬ 
tion »spezialisierte« Version von SIOV 
ist. 

In der obigen Liste war sehr gut zu 
erkennen, daß man beim Aufruf von 


Betriebssystemroufinen die Prozessor¬ 
register oft auf bestimmte Werte setzen 
muß. Dies ist jedoch mit der USR- 
Funktion nicht möglich. Außerdem kann 
man mit USR nur speziell für Basic 
geschriebene Routinen aufrufen, dadie 
mit USR übergebenen Werte automa¬ 
tisch auf dem Prozessor-Stack abge¬ 
legt werden. Daher benötigt man eine 
spezielle USR-Routine, die zunächst 
die Prozessorregister lädt und dann 
einen »echten« Sprung ausführt. Ein 
solches Progrsunm finden Sie im abge¬ 
druckten Basic-Programm. 

Bitte speichern Sie das Programm ab, 
bevor Sie es mit RUN ausprobieren. 

Zunächst wird das 35 Byte lange 
Maschinenprogramm in die Zeichen¬ 
kette CALL$ gelesen. Daraufhin wird zu 
Demonstrationszwecken, mit Hilfe der 
Betriebssystemroutine DSKINV, der 
Bildschirm in Grafikstufe 24 mit dem 
Inhalt der ersten 60 Sektoren auf der 
Diskette gefüllt. Hier eine Erklärung der 
Register, die man setzen muß: 


Trickreiche Adressen 


769 $301 - DUNIT 

Nummer des anzusprechenden Dis¬ 
kettenlaufwerks (1 bis 8). 

770 $302 - DCOMND 
Kommando der auszuführenden 

Funktion. Das 1050-Laufwerk von Atari 
versteht folgende Kommandos: 

33 (»!«); Formatieren mit 720 Sektoren 


34 (»"«): Formatieren mit 1040 Sekto- 
ren 

80 (»P«): Sektor schreiben ohne Über¬ 
prüfung (läuft nur auf dem Atari 800, XL 
und 130 XE) 

82 (»R«): Sektor lesen 

83 (»S«): Status überprüfen 

87 (»W«): Sektor schreiben mit Über¬ 
prüfung 

772,773 $304,$305 - DBUFLO.HI 
Zeiger auf die Stelle im Speicher, ab 
der die Informationen eines Sektors von 
Diskette gelesen oder geschrieben 
werden. 

778,779 $30A,$30B - DAUX1/2 
Nummer des anzusprechenden Dis¬ 
kettensektors. 

Betrachten wir nun den Rest des Bei¬ 
spielprogramms: In den Zeilen 1160 bis 
1180 werden den Registern zunächst 
Konstanten zugeordnet. Dies ist nicht 
unbedingt notwendig, trägt aber zur 
Verständlichkeitdes Programms bei. Es 
folgt in Zeile 1190 das Einschalten der 
hochauflösenden Grafik. Außerdem 
wird die Anfangsadresse des Bildspei¬ 
chers berechnet und in der Variablen 
SC abgelegt. Bereits in Zeile 1200 wer¬ 
den die ersten Register für die DSKINV- 
Routine gesetzt: DUNIT enthält den 
Wert 1, weil das erste Laufwerk benutzt 
werden soll. DCOMND wird auf Lesen 
von Sektoren (»R« wie Read) gesetzt. 
Werte, die über den Bereich von 0 bis 
255 hinausgehen, erscheinen beim 
Atari immer als Doppetbytes, bei denen 
das zweite Byte das höherwertige ist. 
Konkret heißt das, daß man den Wert 


Adresse 

Tabelfe der wichtigsten Emsprungvektoren 

Hex. 

Dez. 

Name 

SeschreibuRg 

$E450 

58448 

DSKIV 

Initialisierung des Laufwerks 

SE453 

58451 

DSKINV 

Ein- und Ausgabe für Diskettenstation 

$E456 

58454 

ClOV 

Central Input/Output-Routine <CIO) 

$E459 

58457 

SIOV 

Serial Input/Output-Routine (SJO} 

$E45C 

58460 

SETVBV 

Interrupt-Vektoren setzen 

$E45F 

58463 

SYSVBV 

Beende immediate-VBI 

SE462 

58466 

XITVBV 

Beende Defen'ed-VSI 

$E465 

58469 

SIOINV 

Initialisiere POKEY-Chip 

$E46S 

58472 

SENDEV 

Schatte PO KEY auf Ausgabe 

$E46ß 

58475 

IMTINV 

Interrupts initialtsieren 

$E46E 

58478 

ClOlNV 

CIO initialisieren 

$E471 

58481 

BLKBDV 

Vektor für >BYE« 

$E474 

58484 

WARMSV 

Warmstart-Vektor 

SE477 

58487 

COLDSV 

Kaltstart-Vektor 

$E47A 

58490 

RBLOKV 

Record von Kassette lesen 


Die folgenden Einsprünge gibt es nur auf dem 600 XL, 800 XL und 130 XE! 


$E480 

58496 

PUPDIV 

Vektor zum Einschattbild 

$£483 

58499 

SLFTSV ' 

Vektor zum Selbsttest 

$E486 

58502 ' 

PHENTV 

Eintrag in HATAßS vornehmen 

$E489 

58506 

PHULNV 

Eintrag löschen 

$E48C 

58508 

PHINIV 

Parallelen Bus initialisieren 
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1000 REM- <RW> 

1010 REM Betriebssystem-Demo <I3T> 

1020 REM von Julian F. Reschke <ZE> 

1030 REM (c) Happy Computer <EY> 

1040 REM- <SI> 

1050 DIM CALL3:(35) :CALLf <3S)="^'' <FS> 

1060 PRüEF=0 <IV> 

1070 FOR I=l TO 35 <1S> 

1080 READ WERT:PRUEF=PRUEF+WERT <JQ> 

1090 CALL#<I,I)=CHRi(WERT) <JA> 

1100 NEXT I <ER> 

1110 IF PRUEFO4907 THEN PRINT CHR#(125) 

;"Datentehler!":END <DD> 

1120 REM <TG> 

1130 DATA*104,104,104,133,212,104,104,13 
3,213,104,104,133,214,104,133,215,104,56 
,233 <BD> 

1140 DATA^l,170,165,215,233,0,72,138,72, 
165,212,166,213,164,214,96 <DJ> 

1150 REM <TP> 

1160 DUNIT=769:DC0MND=778 < QR > 

1170 DBUFL0-772:DBUFH1=773 <YN> 

1180 DAUXl=778iDAUX2=779;DSKINV=58451 <XB> 
1190 GRAPHICS 24sSETCOLOR 2,0,0:SC=PEEK( 
88)+256*PEEK(89) <EX> 

1200 POKE DUNIT,1:PQKE DCDMND,ASC("R"):P 
OKE DAUX2,8 <NQ> 

1210 POKE DBUFHI,INT<SC/256):POKE DBUFLO 
,SC-256*PEEK(DBUFHI) <IK > 

1220 FOR 1=1 TO 60 <GI> 

1230 POKE DAUX1,I <LX> 

1240 WERT=USR(ADR(CALL#),0,0,0,DSKINV) <LV> 
1250 L0=128+PEEK(DBUFLO):IF LO<256 THEN 
POKE DBUFLO,LO;GOTO 1270 <SL> 

1260 L0=L0-256:P0KE DBUFHI,1+PEEK(DBUFHI 
)sPaKE DBUFLO,LD <JQ> 

1270 NEXT I <FO> 

1280 GOTO 1280 <SO> 

Mit diesem Programm können von Basic aus Betriebssystem-Vektoren 


angesprungen werden. AnschlieBend kehrt man wieder ins Basic zurück. 


einer solchen Adresse folgender¬ 
maßen berechnen kann: 

»PEEK(Adresse}+256* PEEK 
(Adresse-HI)« 

Analog muß man natürlich vergehen, 
wenn man ein solches 16-Bit-Register 
verändern will. Da nur die Sektoren bis 
Nummer 60 angesprochen werden sol¬ 
len, muß das High-Byte der Sektornum¬ 
mer immer den Wert 0 enthalten. Es 
muß also nur ein einziges Mai, vor dem 
Eintritt in die Hauptschleite, richtig 
gesetzt werden. Anschließend noch mit 
der gleichen Methode DBUFüO/HI auf 
den Anfang des Bildspeichers bringen. 
Die Schleife von 1220 bis 1270 benutzt 
das Indexregister »1« als Schleifen Zäh¬ 
ler, so daß man I als Low-Byte der Sek¬ 
tornummer betrachten und in DAUX1 
übertragen kann. 

Schließlich folgt noch der Aufruf der 
Betriebssystemroutine Da DSKINV 
keine speziellen Werte in den Prozes¬ 
sorregistern erwartet, wird hier einfach 
jeweils die 0 als Wert angegeben. Zu 
guter Letzt muß noch das Doppelbyte 
DBUFLD/HI um genau 128 erhöht wer¬ 
den, da schließlich jeder Sektor 128 
Byte lang ist. 

Sie haben sicherlich bemerkt, daß 
dabei nicht unbedingt die größte Lade¬ 
geschwindigkeit erreicht wird. Das liegt 
daran, daß die Basic-Befehle zwischen 
den einzelnen Aufrufen von DSKINV 
immer so lange warten müssen, bis die 
Diskette wieder eine volle Umdrehung 
zurückgelegt hat. Erst dann kann der 
nächste Sektor gelesen werden. 

DPEEKs und DPOKEs 
mit Turbo-Basic XL 


Abhilfe schafft Turbo-Basic XL, das 
einerseits das Atari-Basic an Geschwin¬ 
digkeit überfrifft, außerdem für die Ver¬ 
änderung von 16-Bit-Registern die 
schnelleren (und komfortableren) 
Befehle DPEEK und DPOKE zur Verfü¬ 
gung stellt. 

Ungefähr das gleiche kann man mit 
der Routine SIOV ($E459} erledigen. 
Allerdings gibt es auch einige Unter¬ 
schiede Da man nicht auf die Disketten¬ 
station festgelegt ist, sondern auch 
Drucker oder Kassetten-Recorder 
ansprechen kann, müssen einige Regi¬ 
ster zusätzlich initialisiert werden 
(diese Arbeit nimmt einem normaler¬ 
weise der Einsprungvektor DSKINV 
ab); 

768 $300 - DDEVIC 

Mit diesem Register wird der anzu¬ 
sprechende Gerätetyp ausgewählt: 

49 = Diskettenstation 
64 = Drucker 
96 = Kassetten-Recorder 
771 $303 - DSTATS 

Einerseits muß vor dem Aufruf von 


SIOV festgeiegt werden, ob es sich um 
eine Ausgabe (128) oder eine Eingabe 
(64) handelt. Andererseits enthält 
DSTATS im Anschluß daran den Status¬ 
code des seriellen Busses (entspricht 
normalerweise dem Basic-Fehlercode). 
774 $306 - DTIMLO 

Auch die Zeit in Sekunden, die die 
Ausführung eines Kommandos dauern 
darf, muß festgelegt werden. Für Dis¬ 
kettenoperation kann man eine 7 wäh¬ 
len (Ausnahme ist das Formatieren, für 
das man den Wert 160 ansetzen sollte). 
Für Operationen mit einem Kassetten- 
Recorder oder einem Drucker empfeh¬ 
len sich Werte um 30. 

776,777 $308,$309 - DBYTLO/HI 

Anzahl der zu übertragenden Bytes. 
Bei der Diskettenstation normalerweise 
128. 

Bleibt anzumerken, daß der Befehl P 


(Schreiben ohne Überprüfung) auf dem 
Atari 400/800 voraussetzt, »SIOV« zu 
benutzen, da bei den alten Betriebs¬ 
systemversionen dieser Befehl von 
DSKINV nicht unterstützt wurde. 

Die Routine CALL$ können Sie übri¬ 
gens auch verwenden, um eigene 
Maschinenspracheroutinen von Basic 
aus aufzurufen. Dies ist immer dann 
notwendig, wenn diebetreffenden Rou¬ 
tinen nicht als USR-Routinen für Basic 
konzipiert wurden. 

Es zeigt sich also, daß man mit Ein¬ 
sprungadressen ins Betriebssystem 
der Atari-Computer viele wirklich nützli¬ 
che Funktionen ausföhren kann. Für 
den Basic-Programmierer öffnen sich 
somit viele sonst verschlossene Türen. 
Denn leider ist Basic in so manch einer 
Hinsicht einfach überfordert. 

(Julian F. Reschke/wb} 





























Viele der Player-Missile-Adressen 
haben die Eigenart, daß sie, je nachdem 
ob sie geiesen oder beschrieben wer¬ 
den, unterschiedliche Funktionen 
w^rnehmen. Bezieht sich in der 
Tabelle eine Beschreibung auf das 
Lesen, so wird dies mit (L), beim Schrei¬ 
ben mit (S) gekennzeichnet. Die Größe 
eines Players oder Missiles wird folgen¬ 
dermaßen angegeben. Wert 0 oder 2 
entspricht der normalen Größe. Wert 1 
ergibt die doppelte Größe und Wert 3 
die werfache Größe Ist der Inhalt eines 
Kollisionsregisters ungleich Null, so hat 
ein Zusammenstoß zwischen den 
jeweils angegebenen Playern oder Mis¬ 
siles stattgefunden. 

(Wolfgang Czerny/wb) 

Tabelle der wichtigsten PEEKs und POKEs 


Dezimal- 

Wert 

Hexadezimal- 

Wert 

Label 

Beschreibung 

16 

$10 

IRQEN 

Die Interruptquellen des Pokey können von hier aus gesteuert werden. 

Beispiel: »POKE 16,64: PO KE 53774,64« setzen die BREAK-Taste bis zum r^ächsten Graphics-Befehl 
außer Funktion. 

17 

$11 

IRQ3T 

Zeigt an, ob Interrupts des Pokey aktiv geworden sind. 

Beispiel; ifPEEK{17)=0« sagt aus, daß die BREAK-Taste gedruckt wurde 

18,19,20 

$12,$13,$14 

CIDCK 

Ein 3-Byte-Wert, der alle Vso Sekunde inkrementiert wird. Zeitdrfferenzen Kann man wie folgt berech¬ 
nen: »Start=INT((PEEK{1S)*65536)+(PEEK{19)*256)+PEEK(20))/50)«. Die STOP-Zeit wird ebenso 
ermittelt. Die Zeitdifferenz ZEIT errechnet sich dann aus STOP minus START in Sekunden. Eine Uhr 
kann mit diesen Speicherstellen natürlich auch simuliert werden. 

65 

$41 

lOSOUNDEM 

Sei einem Wert von Null wird bei In put/Output-Operationen, also beispielsweise beim Uesen einer Dis¬ 
kette, die Tonausgabe unterdrückt. Beispiel: »POKE 65,0« schaltet den Ton ab, »POKE 65,3« schaltet 
ihn wieder ein. Auf die Sound-Befehle oder das Tastaturkücken hat dies jedoch keinen Einfluß. 

77 

$4D 

ATTRACT 

Der sogenannte Attract-Modus ist für den Farbwechsel zur Schonung des Bildschirms verantwortlich. 

Wird für etwa zehn Minuten keine Taste betätigt, so hat ein Zähler den Wert 128 erreicht und schaltet 
diesen Modus ein. Dies kann verhindert werden, indem man im Programm regelmäßig den Befehl 
»POKE 77,0« durchführt und so den Zähler auf Null zurücksetzt. Mit »POKE 77,129« schaltet man den 
Attract- Modus sofort ein. 

82 

$52 

IJr4 ARGIN 

Linker Rand bei der Textdarstellung. Der Standardwert ist 2. Mit »POKE 82,0« beispielsweise kann der 
linke Rand auf Spalte 0 eingestellt werden. ’ 

83 

$53 

RMARGIN 

Rechter Rand bei der Textdarstellung. Der Standardwert in Grafikstufe 0 ist 39. »POKE 83,X« stellt den 
rechten Rand auf Spalte X. 

84 

$54 

ROWCRS 

Diese Speicherstelle beinhaltet die aktuelle Zeilen Position des Cursors in Grafikstufe 0. 

85,86 

$55,$56 

COlJCRS 

Aktuelle Spalten Position des Cursors als 2-Byte-Wert in Grafikstufe 0. 

88,89 

$68,$59 

SCRSTART 

Dieser 2-Byte-Wert gibt die Adresse des ersten Bildschirmbytes an. Man errechnet sie folgenderma¬ 
ßen: »ADR = PEEK(88) +256*PE£K(89)« 

Kennt man diese Adresse, so kann man den Bildschirm leicht speichern oder beliebige Werte direkt auf 
den Bildschirm POKEn. 

93 ' 

$5d 

DATCURS 

Hier wird das Zeichen abgelegt, das sich unmittelbar unter dem Cursor befindet. 

106 

$6a 

RAMTOP 

Durch die Verschiebung des RAM-Tops wird es beispielsweise möglich, mehrere Screens gleichzeitig 
im Speicher zu behalten und sie dann im sogenannten Page-Bipping hin und her zu schalten. 

186,187 

$ba,Sbb 


Dieser 2-Byte-Wert enthält die Zeilennummer beim Abbruch eines Programms, Ein solcher Abbruch 
kann durch eine Programmunterbrechung mit BREAK, ein STOP oder einen Fehler verursacht werden. 

195 

$C3 

ERRSAV 

Belm Auftreten eines Fehlers wird der Fehlercode hier gespeichert. Dies ist vor allem dann von Nutzen, 
wenn ein Programmabbruch mit dem TRAP-Befehl verhindert wird, der jeweilige Fehler aber dennoch 
registriert werden soll. Beispiel: »ERROR=PEEK(195)«. 

559 

$22f 

DMACNTL 

Antic-Kontrolle. Belegt man diese Speicherstelle mit dem Wert Null, so wird der Bildschirm ausgeschal¬ 
tet de nach Grafikstufe bnngt dies eine Geschwindigkeitssteigerung bis zu 30 Prozent. Um den Bild¬ 
schirm wieder einzuschalfen, muß man die Speicherstelle mit ihrem uraprünglichen Wert belegen. 

Beispiel: »WERT=PEEK{559):POKE 559,0« schaltet den Bildschimn aus. »POKE 559,WERT« schaltet 

Ihn wieder ein, POKEt man hier den Wert 62, so bedeutet dies einfache Auflösung und beim Wert 46 
doppelte Zeilenaufiösung der Player und Missiles. 

560,561 

$230,$231 

DLPTR 

Dieser 2-Byte-Wert gibt die Anfangsadresse der Display List an. »DL=PEEK(560)+256*PEEK(66l)«. 

580 

$244 

COLDSTR 

Wenn in dieser Speicherstelle ein Wert größer Null steht, erfolgt beim Betätigen der »SYSTEM RESET«- 
Taste ein Kaltstart Das heißt, daß gewisse Initialisierungsvorgänge ablaufen und bei angeschlossenem 
Diskettenlaufwerk neu gebootet wird. Beispiel: »POKE 580,1«. 
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PEEKs und 
POKEs mit 
List und 
Tücke 

Wer seinem Atari etwas mehr 
entlocken will, als es die norma¬ 
len Basic-Befehle zutassen, der 
sollte sich der zahlreichen Spei¬ 
cherstellen bedienen, die man 
mit PEEK und POKE erreicht. 


0 as Atari-Basic verfügt schon in 
der Grundversion über einige 
sehr komfortable ßefehla Wenn 
mal jedoch beispielsweise bewegte 
Grafik erzeugen möchtei stößt man in 
Basic schnell auf Grenzen. Wer sich 
dann nicht recht mit Maschinensprache 
anfreunden will, kann sich einer Vielzahl 
von PEEKs und POKEs bedienen, ohne 
die ein gutes Programm in Basic schon 
fast nicht mehr auskommt. 

Die Beschreibung der einzelnen 
Adressen geht jeweils nach einem 
bestimmten Schema vor sich. Zuerst 
findet man den dezimalen Wert der 
Speicherstelle vor. Danach folgt der 
entsprechende hexadezimale Wert, der 
jedoch nur bei der Programmierung in 
Maschinensprache interessant ist. 





















































Dezimal- 

W^rt 

Hexa¬ 

dezimal- 

Wert 

Label 

Beschreibung 

623 

$26f 


Pfioritätsregister der Player-Missiles. 

694 

$2b6 

XORKEYMSf^ 

POKEt man eine Zahl in diese Speicherstelle, so wird der Zeichencode der T^tatur um den gePOKE- 
ten Wert verschoben. 

Beispiel; ^POKE 694.128« bewirkt, daß statt der normalen Buchstaben inverse Buchstaben und Zei¬ 
chen ausgegeben werden. 

702 

$2be 

SHIFTLOCK 

Hier kann man die Tastaturcodes bis zu einem gewissen Grad beeinflussen. »POKE 702,128« simuliert 
die Betätigung der COIMTROLTaste. Tippt man also normale Buchstaben ein, so werden statt dessen 
die entsprechenden Qrafikzeichen ausgegeben. »POKE 702,0« schaltet den Kleinschrift-Modus ein, 
den man auch über die CAPS-Taste erreicht. »POKE 702,64« schaltet zurück in den normalen Schrift- 
Modus. »POKE 702,128« simuliert die Betätigung der CONTROL-Tasta Tippt man also normale Buch¬ 
staben ein, so werden statt dessen Grafikzeichen ausgegeben. »POKE 702,255« bewirkt, daß nur 
noch Tasten akzeptiert werden, die mit numerischen Werten oder Interpunktion belegt sind. Buchsta¬ 
ben können nur über die SHIFTTaste erzeugt werden. 

703 

$2bf 

NUMNXTUN 

Der hier gespeicherte Wert gibt die Zahl der Textzeilen auf dem Bildschirm an. Es werden nur die Werte 

0, 4 und 24 akzeptiert. POKEt man zum Beispiel in Grafikstufe 0 den Wert 4, so erhält man ein vierzei¬ 
liges Textfenster am unteren Bildschirmrand, wie man es von verschiedenen Grafikstufen her kennt. Auf 
diese Weise kann man auch in Grafikstufe 0 ein vom sonstigen Bildschinm unabhängiges Textfenster 
einschalten. Wie in Grafikstufe 1 und 2 muß der Bildschirm dann mit PRItCT #6 angesprochen werden. 
Dabei empfiehlt es sich, den Cursor mit aPOKE 752,1« zumindest vorübergehend auszuschaJten. 

704 

$2c0 

COLPMO 

Farbregister für Player 0 und Missile 0 

705 

$2c1 

COLPM1 

F^rbregister für Player 1 und Missile 1 

706 

$2c2 

COLPM2 

Farbregister für Player 2 und Missile 2 

707 

$2c3 

C0LPM3 

Farbregister für Player 3 und Missile 3 

708 

$2c4 

COLORO 

Farbregister 0. Dies entspncht dem Befehl »SETCOLOR 0, Farbe,Helligkeit«. Um den entsprechenden 
POKE-Wert zu erhalten, multipliziert man den Farbwert mit 16 und addiert den Helligkeitswert. Beispiel 
für die Farbe Blau. »SETCOLOR 0,9,4« entspricht dem Befehl »POKE 708,9*16+4« oder »POKE 
708,148«. In Grafikstufe 1 und 2 bestimmt dieses Register die F^rbe der Großbuchstaben. 

709 

$2c5 

COLDR1 

Farbregister 1. In Grafikstufe 1 und 2 bestimmt dieses Register die Farbe von Kleinbuchstaben. In 

Stufe 0 und S wird hier die Helligkeit der Zeichen eingestellt. 

710 

$2c6 

COIJOR2 

Farbregister 2. In Grafikstufe 1 und 2 bestimmt dieses Register die Farbe inverser Großbuchstaben, in 
Stufe 0 und 8 die Farbe des Hintergrunds. 

711 

$2c7 

C0L0R3 

Farbregister 3. Werden die vier Missiles zu einem Player vereinigt, so wird die Farbe dieses zusätzli¬ 
chen Players hier festgelegt, ln Grafikstufe 1 und 2 steht hier der Farbwert für inverse Kleinbuchsta¬ 
ben. 

712 

$2c8 

COLOR4 

Hintergrundfarbe 

729 

$2d9 

KEYRPDELY 

Bestimmt die Zeit vom Tastendruck bis zum Beginn der Repeat-Funktion. Der Standardwert ist 40. 

730 

$2da 

KEYREP 

Gäbt die WiedeitioJungsfrequenz der Repeat-Funktion an. Der Standardwert Ist 5. 

731 ! 

$2db 

CLiCKDiSA 

Hier kann man das lastaturklicken ein- und ausschalten. »POKE 731,255« bedeutet Klicken aus, 

»POKE 731,0« schaltet das Klicken ein. 

732 

$2dc 

NELPFU\G 

Diese Speicherstelle gibt an, ob die HELP-Taste gedrückt würde. 

Beispiel: »X=PEEK(732)« 
x= 17 bedeutet HELP-Taste gedrückt 
x= 81 bedeutet SHIFTHELP gedrückt 
x=145 bedeutet CONTROL-HELP gedrückt 

762 

$2f0 

CRSINH 

Mit dieser Speicherstelle läßt sich der Cursor ein- und ausstellen. »POKE 752,1« bedeutet Cursor aus, 
»POKE 752,0« bedeutet Cursor ein. 

755 

$2f3 

CHARCTRL 

Hier kann man die Darstellung des Cursors und des Textes auf dem Bildschirm beeinflussen. Es sind 
acht verschiedene Einstellungen möglich. Beispiel: »POKE 755,X« 

X=0 - Zeichen sichtbar, Cursor unsichtbar, Schrift normal 

X=1 - Zeichen unsichtbar, Cursor unsichtbar, Schrift normal 

X-2 - Zeichen sichtbar, Cursor sichtbar, Schrift nomnaJ 

X=3 - Zeichen unsichtbar, Cursor sichtbar, Schrift normal 

X-4 - Zeichen sichtbar, Cursor unsichtbar, Schrift auf dem Kopf 

X=5 - Zeichen unsichtbar, Cursor unsichtbar, Schrift auf dem Kopf 

X=6 - Zeichen sichtbar, Cursor sichtbar, Schrift auf dem Kopf 

X=7 - Zeichen unsichtbar, Cursor sichtbar, Schrift auf dem Kopf 

POKEt man mit einer Schleife abwechselnd die Werte 0 bis 3 in diese Speicherstelle, so kann man 
invers dargestellten Text in Grafikstufe 0 zum Blinken bringen. 

756 

$2f4 

CHARBASE 

Zeichensatzauswahl. Der Atari hat neben seinem Standardzeichensatz noch einen internationalen Zei¬ 
chensatz vorrätig, in dem auch die deutschen Um taute enthalten sind. Dieser internationale Zeichen satz 
wird durch »POKE 756,204« aktiviert. Mit »POKE 756,224« schaltet man zurück in den normalen Zeh 
chensatz. Oer »POKE 756,226« ermöglicht es, in Grafikstufe 1 und 2 Kleinbuchstaben und Graßkzei- 
chen darzustellen. Allerdings muß man sich dann das Leerzeichen selbst definieren, da in diesem 

Modus das Leerzeichen als Herz dargesteilt wird. 
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Dezimal- 

Wert 

Hexa¬ 

dezimal- 

Wert 

Labe! 

Beschreibung 

764 

$2fc 

KBCODE 

Hier wird der Tastatufcode der zuletzt gedrücKten Taste gespefchert. Dieser Code entspricht allerdings 
nicht dem Standard-ASClI-Code, sondern stellt einen Atari-spezifischen Code dar. 

1021-1151 

$3«d-$47f 

CASBUF 

Kassettenpüfferbereich. Bei der Verwendung von Diskettenlaufwerken kann man diesen Bereich zum 
Speichern von Maschinen Unterprogrammen verwenden. 

1536-1791 

$0600-06ff 


Page 6 - Dieser Bereich wird in der Regel zum Speichern von Maschinenunterprogrammen verwendet. 

53248 

SdOOO 


(L) Kollisionsregister Missile 0 mit Spielfeld. 

(S) Horizontale Position von Player 0. 

53249 

$d001 


(L) Kollisionsregister Missile 1 mit Spielfeld. 

(S) Horizontale Position von Player 1. 

53250 

$d002 


(L) Kollisionsregister Missile 2 mit Spielfeld. 

(S) Horizontale Position von Player 2. 

53251 

$d003 


(L).Kollisionsregister Missile 3 mit Spielfeld. 

(S) Horizontale Position von Player 3. 

53252 

$d004 


(L) Kollisionsregister Piayer 0 mit Spielfeld. 

(S) Horizontale Position von Missile 0. 

53253 

$d005 


(L) Kdlisionsregister Player 1 mit Spielfeld. 

(S) Horizontale Position von Missile 1 

53254 

$d006 


(L) Kollisionsregister Player 2 mit Spielfeld. 

(S) Horizontale Position von Missile 2. 

53255 

$d007 


{L) Kollisionsregister Player 3 mit Spielfeld. 

(S) Horizontale Position von Mtssile 3. 

53256 

$d008 


(L) Kollisionsregister Missile 0 mit eirvem Player. 

(S) GröBe von Player 0. 

53257 

$d009 


(L) Kollisionsregister Missile 1 mit einem Player. 

(S) Größe von Player 1 

53258 

SdOOa 


(L) Kollisionsregister Missile 2 mit einem Piayer. 

(S) Größe von Player 2. 

53259 

$d00b 


(L) Kollisionsregister Missile 3 mit einem Player. 

(S) GröBe von Player 3. 

53260 

SdOOc 


{L) Kollisionsregister Player 0 mit anderem Player. 

(S) Größe von Missile 0. 

53261 

$d00d 


(L) Kollisionsregister Player 1 mit anderem Player 
(S) Größe von Missile 1 

53262 

SdOOe 


(L) Kollisionsregister Player 2 mit anderem Piayer, 

{S) Größe von Missile 2. 

53263 

$d00f 


{L) Kollisionsregister Player 3 mit anderem Player. , 

(S) Größe von Missile 3. 

53277 

$d01d 


(S) Hier kann man die Ptayer und Missile ein- und ausschalten. 

53278 

$d01e 


(S) Schreibt man in dieses Register einen beliebigen Wert, so werden alle Kollisionsregister gelöscht. 

53279 

$d01f 

CONSOL 

Diese Speicherstelle wird zur Abfrage der Sondertasten des Atari, also von OPTION, SELECT und 

START verwendet Da die HELP-Taste nur bei den XL-Modellen vorkommt ist ihre Abfrage an anderer 

Stelle zu entnehmen. Die Werte, die man aus dieser Speicherstelle erhält, haben folgende Bedeutung: 

X^PEEK(53279) ' 

x=0 - OPTION+SELECr-f START gedruckt 

x=1 - OPTION -i-$ELECT gedrückt 

x-2 - OPTION-f START gedrückt 

x=3 - OPTION Taste gedrückt 

x^4 - SELECT+START gedrückt 

x=6 - SELECT Taste gedruckt 

x=6 ^ START Taste gedrückt 

x=7 - keine der Sondertasten wurde betätigt 

Die gleichzeitige Betätigung von CONTROL oder SHIFT mit einer der Sondertasten liefert keine ande¬ 
ren Werte. 

53770 

$d20a 

RANDOM 

Diesem Register kann m^m eine Zufallszahl entnehmen, deren Wert zwischen 0 und 255 liegt. Das ist 
vor allem beim Arbeiten mit Compilern wicbtig, die die »RND«-Funktion nicht übersetzen. 

54016 

$d300 

PORTA 

Port A der PIA 

64017 

$d301 

PORTS 

Port S der PIA 

54018 

$d302 

PORTACNTL 

Datenrichtungsregister für Port A. 

54019 

$d303 

PORTBCNTl^ 

Datenrichtungsregister für Port B. 

54279 

$d407 

PMBASE 

Hier muß das High-Byte der Adresse des Player-Missile-Speichers stehen. 
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Dem 

SOUND-Befeh! 
auf der Spur 


Oft wird den Atari-Computern Ihre Soundfähigkeit 
abgesprochen. Ein paar Tricks entlocken dem 
Atari aber dennoch sehr wohlklingende Töne. 


PROGRAMM-STECKBRIEF 

Programmname 

Musik-Kurs 

Programmtyp 

Kurs 

Programmiersprach e 

Atari-Basic 

Programm länge 

insgesamt 33716 Byte 

für Computer 

800XU130XE 

zusätzliche Hardware 

Diskettenlaufwerk oder 
Kassettenrecorder 

Eingabehilfe 

Prüfsummer 

Bemerkung 

zusammenhängender Musik-Kurs 
(SOUNQ7 und SOUND.S sind 

Demos). 

Leserservice 

Diskette (SOUND.12 bis SOUND.S) 


E s ist sicher etwas zuviel verlangt, einem Heimcom¬ 
puter Musikqualitäten einer elektronischen Orgel ab¬ 
zuverlangen. Schließlich wurde er in erster Linie für 
andere Zwecke entwickelt. So geht seine Verwendung vom 
Spielecomputer über Grafikanwendungen bis hin zur Datei¬ 
verwaltung und Textverarbeitung. Aber es beschäftigen sich 
eben auch einige »Musikfreaks« mit den Soundeffekten. 

In diesem Beitrag dreht sich alles um den SOUND-Befehl. 
So gilt es hier, dem Atari-Computer in Sachen Tonerzeugung 
auf die Sprünge zu helfen. Der eingebaute Sound-Baustein 
»Pökey« soll also voll ausgereizt werden. Dabei werden Tricks 
angewandt, die bislang nur Insidern bekannt waren. 

Noch ein Wort zum Aufbau dieses Beitrags. Sie finden eine 
ganze Reihe von dokumentierten Listings, die das Grundge¬ 
rüst des Artikels darstellen. Nur wenn Sie diese Programme 
vorliegen haben, können Sie sich richtig in die »Sound«- 
Materie der Atari-Computer einarbeiten. Es empfiehlt sich 
also, alle hier abgedruckten Programme einzugeben. Wenn 
Sie ein Diskettenlaufwerk verwenden, sollten Sie die Pro¬ 
gramme mit den vorgeschlagenen Programmnamen spei¬ 
chern. Nach der Abarbeitung des ersten Programms wird 
dann automatisch das nächste Programm geladen etc. Ver¬ 
wenden Sie einen Kassettenrecorder, müssen Sie die Pro¬ 
gramme in der abgedruckten Reihenfolge eingeben und auf 
einer Kassette speichern. Übrigens: Lassen Sie die Musik¬ 
programme nur unter dem normalen Atari-Basic laufen, 
Turbo-ßasic XL arbeitet die Programme viel zu schnell ab. 

Der SOUND-Befehl setzt sich aus den vier Parametern 
»Voice«, »Pitch«, »Distortion« und »Volume« zusammen. Dabei 
steht Voice für Stimme, Pitch für Tonhöhe, Distortion für Ver¬ 
zerrung und Volume für die Lautstärke Damit man sich besser 
und schneller in die Beispielsprogramme einarbeiten kann, 
werden immer die gleichen Variablen verwendet. Dies trägt 
außerdem zur Übersichtlichkeit bei. In den folgenden Bei¬ 
spielen wird immer nur die erste Stimme verwendet. Der Ver¬ 


zerrungsfaktor beträgt dabei stets 10. Die Tonwiedergabe 
erfolgt bei dieser Einstellung verzerrungsfrei. 

Falls Sie ein Diskettenlaufwerk verwenden, geben Sie jetzt 
bitte »RUN "D:SOUND.12«ein, umListing 1 zu starten. Beim 
Kassettenrecorder laden Sie bitte das entsprechende Pro¬ 
gramm. 

Innerhalb der Beispielsprogramme können Sie sich mit der 
OPTION-Taste eine Tonfolge immer wieder anhören. Mit 
START gelangen Sie zum nächsten Beispiel. 

Der Ablauf von Usting 1: 

- Der Computer meldet sich zuerst mit einem mittleren C. 

- Verändern der Lautstärke, mal langsam und dann wieder 
schnell. 

- nur die Tonhöhe verändern 

- Tonhöhe und Lautstärke verändern 

Wenden wir uns nun der Musikprogrammierung zu. Insge¬ 
samt stehen Pitch-Werte von 0 bis 255 zur Verfügung. Es 
sind aber nur die Werte interessant, die jeweils einem Ton ent¬ 
sprechen (siehe Tabelle 1). 


Tabelle 1. Tonhöhentabelle 

Ein Unterprogramm bestimmt die Tondauer, das heißt, ob 
zum Beispiel eine ganze, halbe oder Viertelnote gespielt wird. 
Es bietet sich hier an, einen im Betriebssystem der Atari- 
Computer eingebauten Counter (Zähler) zu verwenden. 
Dazu eignet sich die Speicherstelle 540. Der in dieser 
Adresse enthaltene Zähler zählt jede Vso-Sekunde einen 
Schritt zurück. In die Adresse 540 kann also ein Wert zwi¬ 
schen 0 und 255 gePOKEt werden. Nach Beendigung der 
Warteschleife, also wenn die Adresse den Wert 0 erreicht 
hat, kann ins Hauptprogramm zurückgesprungen werden. 
Hier eine Routine^ die eine Sekunde lang eine Note spielt: 
10 SOtfflD l,200jlO,10:REH 
Tonausgabe einschalten 
20 POKE 540,50:REM 

Der Ton soll für eine Sekunde gespielt werden 

30 IF PEEK(540)< > 0 THEW 30:REM 

Wiederhole bis die Speicherstelle 540 den Wert 0 enthält 

40 SOOWD 1,0,0,0:REM 

Ton abstellen. 

Da in einem Programm eine solche Warteschleife öfter 
benötigt wird, bietet es sich natürlich an, für diesen Zweck 
eine separate Unterroutine zu verwenden. Weiterhin emp- 


Noten¬ 

nummer 

Tonhöhe 

Noten- 

name 

1 

14 

C 

2 

55 

B 

3 

16 

A# 0. ßb 

4 

17 

A 

5 

18 

a Ab 

6 

19 

G 

7 

21 

F# 0. GÜ> 

8 

22 

F 

9 

23 

E j 

10 

24 

0, Eb 

11 

26 

D 

12 

27 

C# aDb 

13 

29 

C 

14 

31 

B 

15 

33 1 

A# Ol ßb 

16 

35 

A 

17 

37 

G# 0. Ab 

18 

40 

G 

19 

42 

F# a Gb 

20 

45 

F 

21 

47 

' E 

22 

SO 

D# Ol Eb 

23 

53 

D 

24 

67 

C# a Db 

25 

60 

C 


Noten- 

nummer 

Tonhöhe 

Noten¬ 

name 

26 

64 

B 

27 

68 

A# 0. Bb 

28“ 

72 

A 

29 

76 

G# 0. Ab 

30 

81 

G 

31 

85 

F # 0. Gb 

32 

91 

F 

33 

96 

E 

34 

102 

D# 0. Eb 

35 

108 

D 

36 

114 

G# a Db 

37 

121 

C 

38 

128 

B 

39 

136 

A# a Bb 

40 

144 

A 

41 

153 

G# 0. Ab 

42 

162 

G 

43 

173 

F # 0. Gb 

44 

182 

F 

45 

193 

E 

46 

204 

0# a Eb 

47 

217 

D 

48 

230 

C# 0. Db 

49 

243 

C 

50 

255 

B 










































fiehltsich eine Übergabevariable einzusetzen, die bestimmt, 
wie lange ein Ton gespielt werden soll. 

Nachdem eine bestimmte Tonsequenz abgearbeitet 
wurde, müssen gegebenenfalls adle vier Stimmen wieder 
abgestellt werden. Die folgende Programmzeile erledigt dies 
für Sie: 

60 FOR AUS=0 TO 3:S0ÜND AUS,0,0,0:NEXT AUS:RETURN 

Wenn man jetzt also ein Musikstück in Basic schreiben 
möchte, kann man die benötigten Notennummern in DATA- 
Zeilen ablegen. Mit einer READ-DATA-Schleife lassen sich 
dann die Werte lesen und verarbeiten. Listing 2 demonstriert 
dieses Verfahren. 

Wenn Sie ein Diskettenlaufwerk verwenden, wird Listing 2 
automatisch geladen und gestartet. Besitzer eines Kasset¬ 
tenrecorders müssen jetzt wieder das entsprechende Pro¬ 
gramm laden, 

Begleitung mit Dur-Akkorden 


Haben Sie bislang nur einfache Beispiele gehört, folgt jetzt 
mit Listing 3 eine komplexere Melodie 
Es beginnt mit der Dimensionierung der Variablen. Hier 
werden einerseits LINE$ und ein Array N sowie die Variablen 
VO bis V3 vordefiniert. In der Variablen N sind dann insgessmt 
50 Tonhöhen gespeichert, UN E$ nimmt immer eine Textzeile 
auf und stellt sie auf dem Bildschirm dar. Sie dient sozusagen 
dem Dialog. Anschließend erfolgt ein Sprung zu Zeile 100. 
Die DATA-Werte ab Zeile 100 werden aber zunächst ignoriert, 
und es wird ein Unterprogramm ab Zeile 21000 aufgerufen. 

Dieses Unterprogramm ist für das Löschen des Bild¬ 
schirms, die Hintergrundfarbe, die Schrift und die Fixierung 
der Bildränder zuständig. Dazu werden folgende POKEs ver¬ 
wendet: 

- »POKE 752,1« Cursor aus 

- »POKE 82,X« und »POKE 83,X« für das Setzen des lin¬ 
ken und rechten Bildschirmrandes 

- »POKE 201,X« setzt die Anzahl der Leerzeichen fest, 
die bei »PRINT,« ausgegeben werden sollen 

- »POKE 77,0« schaltet den automatischen Farbwechsel 
aus. 

Nachdem das Unterprogramm abgearbeitet ist, springt das 
Programm zurückzu Zeile 120. Jetzt werden noch die Noten 
in das Feld N geschrieben. 

Eigentlich stellt sich nun die Frage: Warum werden die 
Tonhöhen-Werte noch zusätzlich in einem Feld abgelegt? Es 
würde doch genügen, die benötigten Werte direkt aus den 
DATA-Zeilen zu lesen. Das ist prinzipiell richtig, aber wenn Sie 
Tabelle 1 von oben nach unten lesen, wird Ihnen auffallen, 
daß in der mittleren Spalte verschiede Werte fehlen. In der 
ersten Spalte, mit der Bezeichnung »Noten-Nummer«, finden 
Sie aber 50 fortlaufende Nummern. Diese Nummern erlau¬ 
ben eine schnellere Berechnung der Akkorde. Dazu muß nur 
der Grundton des gewünschten Akkordes angegeben wer¬ 
den und schon wird der gesamte Akkord ausgegeben. 

Die Unterroutine zur Berechnung der Akkorde beginnt ab 
Zeile 40 und nennt sich »Akkord-Berechner«. Vor dem Aufruf 
dieser Routine muß die Notennummer in der Variablen P 
übergeben werden. Dabei darf P nur Werte zwischen 8 und 
50 enthalten. Weiterhin nimmt noch die Variable PO die ent¬ 
sprechenden Tonhöhen aus dem Feld N an. Dann wird der 
Akkord berechnet und die Tonhöhenwerte in den Variablen 
PI, P2 und P3 abgelegt. In Zeile 42 werden die vier Stimmen 
aktiviert. Stimme 0 ist dabei auf eine höhere Lautstärke 
gesetzt als die restlichen drei Stimmen des Akkorda 
Das Unterprogramm ab Zeile 30 ändert lediglich die Ton¬ 
höhe und springt daraufhin in die Verzögerungsschleife. In 
Zeile 70 sind alle vier Stimmen zunächst auf gleiche Laut¬ 
stärke gesetzt. Diese wird dann gleichmäßig zurückgenom¬ 
men, bis nichts mehr zu hören ist. 


Zeile 210 liest nun die Daten für LINES, CHORD, P und 
WAIT. Der Inhalt von LIN ES wird auf dem Bildschirm ausgege¬ 
ben und anschließend das Unterprogramm ab Zeile 40 auf¬ 
gerufen. ln dieser Routine steht also in LINES »Häns-chen 
klein - ging allein«, die Variable CHORD enthält nun den Wert 
49, P den Wert 30 und WAIT den Wert 30. 

Der in Listing 3 verwendete Algorithmus ist nicht für jedes 
Lied geeignet. Eventuell müssen Sie einige Änderungen vor¬ 
nehmen. Schließlich gibt es verschiedene Tempi und nicht 
nur Dur-Akkorde. Das abgedruckte Programm zeigt ein Bei¬ 
spiel, wie man die entsprechenden Noten für Akkorde findet 
und so ein Lied komponiert. 

Laden Sie jetzt Listing 4. Dieses Programm spielt jeweils 
eine Tonleiter in Dur, Moll, und C-Dur vor. Begleitend erschei¬ 
nen die entsprechenden Usting-Zeilen auf dem Bildschirm. 
So können Sie sich auch ein Bild von der Programmiertechnik 
machen. 


GePOKEte Musik 


Mit den ersten sechs Programmen (Listing 1 bis Listing 6) 
hatten Sie die Gelegenheit, sich einen Eindruck davon zu ver¬ 
schaffen. was der SOUND-Befehl zu leisten vermag. Aller¬ 
dings gibt es einen noch viel besseren Weg, nämlich von 
Maschinensprache aus. Dann kann man die Fähigkeiten des 
Pokey-Bausteins, der für die Tonausgabe zuständig ist, voll 
ausnutzen; denn für manche Geräuscheffekte ist das Atari- 
Basic einfach zu langsam. Sie müssen aber nicht unbedingt 
auf Maschinensprache zurückgreifen, denn auch der POKE- 
Befehl kann die Sound-Register direkt ansprechen. Auf diese 
Art und Weise lassen sich dann noch viel wirkungsvollere 
Klangvariationen erzeugen. Listing 7 stellt ein solches Klang¬ 
beispiel vor. Zur Bedienung brauchen Sie lediglich einen Joy¬ 
stick. Schließen Sie diesen bitte an Joystickport 1 an. 

Auf dem Bildschirm erscheinen dann die Zahlen 53760 bis 
53768. Sie repräsentieren die Speicherstellen, die für die 
Tonausgabe zuständig sind. Nach dem Starten des Pro¬ 
gramms sind alle Adressen auf Null gesetzt. In der ersten 
Zeile befindet sich noch ein " > " Zeichen. Bewegen Sie es 
mit dem Joystick bis zur Zahl 53768, indem Sie den Joiratick 
nach unten auslenken. Mit dem Feuerknopf verändern Sie die 
Speicherstelte. Dann brauchen Sie den Joystick nur nach 
vorne oder hinten zu bewegen. Hat die Adresse den 
gewünschten Wert erreicht, betätigen Sie nochmals die 
Feuertaste, und das "> "-Zeichen kehrt 2 Xir ersten Zeile 


Variable 

Bedeutung 

VO 

Stimme 0 

VI 

Stimme 1 

V2 

Stimme 2 

V3 

Stimme 3 

P 

Tonhöhe 

D 

Verzerrung 

V 

Lautstärke 

Es gibt insgesamt vier Stimmen (VO bis V3). Diesen Variablen wird 

stets ein Wert zugewiesen, der sich dann wahrend des ProgramTn- 

lauts nicht mehr ändert. Sie erhalten folgende Werte: 

VO 

0 

VI 

1 

V2 

2 

V3 

3 

P 

Tonhöhe, karin einen ganz^hligen Wert 
zwischen 0 und 255 annehmen 

D 

Verzerrung, nimmt Werte zwischen 0 
und 14 an 

V 

Lautstärke für diese Variolen sind 

Werte zwischen 0 und 15 zugelassen 


Variablenliste 
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zurück. »POKEn« Sie beispielsweise in die Adresse 53768 
den Wert 80, in Adresse 53760 den Wert 10 und in 53761 
einen beliebigen Wert. Anschließend wird der Lautsprecher 
Ihres Fernsehers oder Monitors aktiv. 

Die Speicherzelle 63768 ist der Schlüssel zu allem. Bele¬ 
gen Sie diese Speicherzelle auch einmal mit anderen Werten 
zwischen 0 und 255. Ändern Sie dann noch die Speicherzel¬ 
len 53760 und 53761. Was ist nun mit 53762 bis einschließ¬ 
lich 53767? Ändern Sie jetzt auch diese Speicherzellen. So 
können Sie sich auf experimentellem Wege einige gut klin¬ 
gende Geräusche aussuchen. 

Bevor Sie die POKE-Befehle in Basic anwenden, müssen 
Sie wissen, daß der Sound-Prozessor zunächst instailiert 
werden muß. Dazu reicht es aus, am Anfang eines Pro¬ 
gramms den Befehl »SOUND 0,0,0,0«auszuführen. Weiterhin 
sind die Sound-Register des Atari-Computers nur für Zahlen¬ 
werte empfänglich. POKEt man beispielsweise in die Adresse 
53762 den Wert 10, erhält man nach »PEEK(53762)« nicht 
mehr denselben Wert. Warum dies so ist, ist für die Tonerzeu¬ 
gung nicht wichtig. Man muß nur wissen, daß man mit dem 
POKE-Befehl die Geräuscherzeugung beeinflussen kann. 
Tabelle 2 listet noch die englischen Bezeichnungen für die 
Sound-Register auf. 

Falls Sie ein Diskettenlaufwerk verwenden, wird am Ende 
automatisch Listing 8 geladen. Es demonstriert, daß der 
Atari-Computer schon von Basic aus sehr wohlklingende 


Töne von sich zu geben im Stande ist. Auch Sie können sol¬ 
che Melodien komponieren, vorausgesetzt Sie haben die 
hier erläuterten Grundlagen verstanden. Aber auch in der 
Musikprogrammierung gilt das Motto: Übung macht den Mei¬ 
ster. 

Möchten Sie sich am Schluß noch eine wirklich meisterhaft 
umgesetzte Melodie anhören? Dann geben Sie noch Listing 9 
ein. Nachdem Sie das Programm gestartet haben, hören Sie 
die Melodie »Digi Loo, Digi Lee«. Das Programm wurde uns 
freundlicherweise von Kemal Ezcan zur Verfügung gestellt; 


Register 

Bezeichnung 

53760 

voice Q 

Frequency 

63761 

Vorce 0 

Control 

53762 

Voioe 1 

Frequency 

53763 

V^rce 1 

Control 

53764 

Voice 2 

Frequency 

53765 

Voice 2 

Control 

53766 

Voice 3 

Frequency 

53767 

Volce 3 

Control 

53763 

Audio 

Control 


Tabelle 2. Die Sound-Register 


er ist einer der wenigen, die die Soundprogrammierung des 
Atari wirklich perfekt beherrschen. Vielleicht machen Sie ihm 
bald Konkurrenz? (Peter Gerstner/wb) 


0 REM,SOUND-1 Ein-fuehrung 

Cc) 1?S5 by Peter Berstner 08/10/85 <SA> 

1 REM <UQ> 

2 REH <UR> 

3 REM <US> 

10 V;0=0: V1 = 1:V2^2= V3=3;DIM TYPE$ (40) C5 
0):GOTO 100 <ED> 

50 PQKE 540,WAIT <VY> 

52 IF PEEK(540)00 THEN 52 <0U> 

54 RETURN <ML> 

60 FOR OFr=0 TO 3iSOUND OFF,0,0,0:WEXT O 

FF:RETURN <KN> 

70 LINEALEN CTYPE^:) sPOSITION HOR,V£R <NB> 

72 FOR ME=1 TO LINE:? TYPE^CME,ME);:IF T 
YPESCME,ME)="*" THEN 76 <DL> 

74 SOUND 0,25,4,6:FOR DECAY=6 TO 0 STEP 
-0.5:SOUND 0,10,0,DECAY:NEXT DECAY <AX> 

76 NEXT ME:RETURN <NZ> 

100 BOBUB 21000; Wfi'lT=60 <VW> 

200 TYPE^- " Bi 11ej..denj^Beg 1 ei ttexuerj^SO 
UND.12":HDR=3:VER=9:GOSUB 70 < DL > 

210 TYPE±="“ 1 e5enj.Lind*erst-.£ii e*START-Tast 
e*druecken":HOR=l:VER=11-SOSUB 70 <QS> 

220 TYPE#— " wenn.*.es.*.i m.-.Tex t.*,vGr 1 angt*.wi rd 
-":H0R^5:VFR=13=B0SUE 70 <TV> 

230 BOSUB 20000:BOSUB 21000 <XK> 

700 TYPES—"SOUND*BeTehl ^Tuerttl er 

-^":H0R^3:VER=736DSUB 70;SaSUB 50 <OG> 
720 POSITION 12,13;? "SOUND*0,121,10,8": 

SOUND 0,121,10,8:GOSUB 50:GOSUB 60 <16> 

740 LINE=720:GOSUB 22000 <UQ> 

7QO TYPES="SOUND^^mit^variab1er^LAUTSTAE 
RKE":H0R=4:VER=7:GOSUB 70 <M0 > 

820 POSITION 12,13i? "SOUNDSO,60,10,0" <AZ> 
840 FOR D=0 TO 14:POSITION 12,13:? "SOUN 

121,10, SOUND V0,121,10,D <NM> 

860 WAIT^20:GOSUB 50:NEXT D <DD> 

380 FOR D=13 TO 0 STEP -l:POSITION 12,13 
:? "SOUND*0,121,10,“:D;"**': SOUND V0,121, 

10,D <LV> 

900 WAIT=20:GOSUB 50:NEXT D:WAIT=60:GOSU 
B 50 <JA> 

920 FOR D=0 TO 14:POSITION 12,13:? “SOUN 
D^0,121,10,SOUND V0,l2l,10,D <NJ> 

940 WAIT=10:GOSUB 50:NEXT D <CQ> 

960 FOR D=13 TO 0 STEP “1:POSITION 12,13 
:? "SOUND-.0,121,10,"; D? SOUND V0,121, 

10,D <LS> 

780 WATT=^10: GOSUB 50: NEXT D: WAIT=60: GOSU 
B 50 <JG> 


1000 FOR D=0 TO 14;POSITION 12,13:? "SOU 
ND*0,121,10,”;D;SOUND V0,121,10,D:NE 
XT D ■ <DI> 

1020 FOR D=12 TO 0 STEP -IsPOSITlON 12,1 
3:7 "SOUND*0,121,10,";D;SOUND 90,121 
,10,D:N£XT D <IB> 

1030 WAIT=60:GOSUB 50 <ER> 

1040 FOR D-0 TO 14 STEP 2:P0SITI0N 12,13 
:7 "SOUNDSO,121,10,D;SOUND V0,121, 

10,D:NEXT D <YI> 

1060 FOR D=12 TO 0 STEP -2:POSITION 12,1 
3:? "SOUND-.0,121,10, ";D; : SOUND V0,121 

,10,D:NEXT D:GOSUB 50 <0V> 

1080 FOR D=14 TO 0 STEP -2:POSITION 12,1 
3:? "SOUNDSO,121,SOUND 90,121 
,10,D=NEXT D:GOSUB 50 <QB> 

1100 FOR D=14 TO 0 STEP -1:POSITION 12,1 
3:? "SOUND^0,121,10,";D;SOUND 90,121 
,10,D:NEXT D:BOSUB 50 <0F> 

1120 FCMR D^14 TO 0 STEP -0.5:POSITION 12 
,13:7 ■•SOUND*0,121,10,"3 INT CD) ; SOUND 
90,121,10,D:NEXT DiSOSUB 50 <CV> 

1140 FOR D=14 TO 0 STEP -0.2:POSITION 12 
,13=7 " SOUND*0,121, lO , " ; INT CD) ; " : SOUND 

^ 90,121,10,D=NEXT DiGOSUB 50 <Z9> 

1X60 POSITION 12,13;? "SOUND-^0,121,10,10 

SOUND 0,121,10,10:WAIT=20:GOSUB 50 <9M> 

1180 POSITION 12,13:7 ”SOÜND^0,121,10,0* 

GOSUB 60:WAIT=20:GOSUB 50 <^9> 

1200 FOR ME=1 TO 3:POSITION 12,13:? "SOU 
ND*0,121,10,10":SOUND 0,121,10,10:WAIT=1 
0:GOSUB 50 <NP> 

1220 POSITION 12,13;? "SGUND...0,121,10,0* 

":GOSUB 60:GOSUB 50:NEXT ME:WAIT^60;GOSU 
B 50 <BP> 

1240 FOR ME=1 TO 5;P0SITI0N 12,13:? "SOU 
ND*0,121,10,10":SOUND 0,121,10,10 <TN> 

1260 POSITION 12,13:? "SOUND*©,121,10,0- 
";GOSUB 60:NEXT ME:WAIT=60:GOSUB 50 <MZ> 

1300 LINE=820:GOSUB 22000 <YP> 

1360 TYPE*=^"SClUND*mi t*var i ab 1 er*TONKOEHE 
":H0R=6:9ER=7:GOSUB 70 < MR > 

1400 FOR P=0 TO 2S5;P0SITI0N 12,13:? "SO 
UND*0,";P;",10,8**":SOUND 0,P,10,3;NEXT 
p <0Z> 

1420 FOR P-255 TO 0 STEP -1:POSITION 12, 

13:? "SOUND*0,“;F;",10,8**":SOUND 0,P,10 


Listing 1. Einfache Beispiele mit dem SOUND-BefehL Bitte 
mit dem Mamen »D:S0UND.12« auf Diskette speichern. 



123 




























,e:NEXT P 

<EU> 

R3TCTL R>ICTL RXCTL R> ICTL R> ICTL RJ CCT 


1440 FOR P^0 TO 255 STEP 5:PÜSITI0N 12,1 


L R>TCTL R^TCTL R>tCTL R>TCTL RICCTL RII 


3=2 "SOUNDSO,"3PsSOUND 0,P,10, 


CTL RiCCTL E>" 

<AT> 

8:NEXT P 

<DD> 

20020 ? ^"TSHIFT =>*Druecke*START*^uer*w 


1460 FÜR P™255 TO 0 STEP -5:POSITION 12, 


eiter*TSHIFT =>" 

<PW> 

13:2 "SCUND...0,";P; " ,10,8**" = SOUND 0,P,10 


20030 ? ,"TCTL Z>TCTL R J'CCTL R> tCTL R? tC 


,8:NEXT P 

<JK> 

TL R^TCTL RJICTL R>TCTL RITCTL RJTCTL RJ 


1480 FOR P=0 TO 250 STEP 10:POSITION 12, 


tCTL Ri^CTL R>CCTL R> ICTL RJTCTL RXCTL 


13=2 ”SOUND*0,"3P;",10,8**":SOUND 0,P,10 


RJICTL R>TCTL RiTCTL R>tCTL RITCTL RiICT 


,S:NEXT P 

<EK> 

L R>TCTL RiTCTL RiTCTL RiTCTL R>TCTL RiC 


1500 FOR P=250 TO 0 STEP -10:POSITION 12 


CTL RiTCTL Ci" 

<BW> 

,13:2 "SOUND*0,";F;", 10,8**":SOUND 0,P,1 


20040 IF PEEK<53279>=6 THEN POKE 755,2:R 


0,8:NEXT P 

<riG> 

ETURN 

<Bß> 

1520 POSITION 12,13:2 "SOUND*0,0,0,0***" 


20050 POKE 755,3:POKE 755,2:PET=0:GOTO 2 


:SOSUB 60:LINE=1400:BOSUB 22000 

<CB> 

0040 

<NR> 

1560 TYPE$="SOUND**mit*variab1er":HOR=10 


21000 GRAPHICS 0:SETCOLÜR 2,9,0:SETCOLOR 


:VER=5:G0SUB 70 

<KT> 

4,9,0:SETCDLOR 1,9,12:POKE 752,1:POKE 8 


1580 TYPE^="TONHOEHE*und*LAUTSTAERK£" = HO 


2,2:POKE 63,39:POKE 201,8 

<IN> 

R=S:VER=7=GOSUB 70:WAIT=60:GOSUB 50:REST 


1 21010 ? ,"TCTL OiTCTL RiTCTL RiTCTL RiTC 


□RE 1600 

<ÜX> 

TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ri 


1600 DATA*60,53,47,45,40,35,31,29,29,31, 


TCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL 


35,40,45,47,53,60 

<EE> 

RiTCTL RiTCTL RiTCTL RiTCTL Ei" 

<JM> 

1620 FOR rlE=l TO 16 : READ P:FOR V=14 TO 0 


21020 2 ,"TSH1FT =i*Der*SOUND*Betehl*TSH 


STEP -2:POSITION 12,13:2 "SOUND* 0 ,";P 5 " 


IFT =J" 

<IV> 

,10,";V;"*":SOUND 0,P,10,V 

<AS> 

21030 2 ,"TCTL ZiTCTL RiTCTL RiTCTL RiTC 


1640 WEXT V:WAIT-10=GOSUB 50=NEXT ME:RES 


TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ri 


TORE 1660 

<YR> 

TCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL 


1660 DATA*243,193,162,121,96,31,60,47,40 


RiTCTL RiTCTL RiTCTL RiTCTL C3" 

<LH> 

,29,23,19,14,14,19,23,29,40,47,60,81,96, 


21040 POKE 77,0:RETURN 

<AK> 

121,162,193,243 

<BR> 

21100 GRAPHICS 0:SETCOLOR 2,9,0;SETCOLOR 


1680 FOR ME=1 TO 26:READ P;FOR V=14 TO 0 


4,9,0:SETCOLOR l,9,12iPOKE 752,1sPOKE S 


STEP -2:POSITION 12,13:2 "SOUND*0,";P;" 


,2,2:POKE 83,39: POKE 201,11 

<YD> 

,10,";V;"*":SOUND 0,P,10,V 

<cc> 

21110 2 ,"TCTL QiTCTL RiTCTL RiTCTL RiTC 


1690 NEXT V:WAIT=10:GOSUB S0:NEXT ME 

<BJ> 

TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ri 


1700 RESTORE 1600:LINE=1620:GOSüB 22000 

<NX> 

TCTL RiTCTL RiTCTL RiTCTL RiTCTL Ei" 

<MQ> 

2000 REM 

<SZ> 

21120 2 ,"TSHIFT =i*BASIC*MUSIK*TSHIFT ^ 


2001 REM 

<TD> 

i " 

<IJ> 

2002 REM SOUND-2 BASIC-MUSIK 

<XB> 

21130 2 ,"TCTL ZiTCTL RiTCTL RiTCTL RiTC 


2003 REM 

<TL> 

TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL R> 


2004 REM 

<TP> 

TCTL RiTCTL RiTCTL RiTCTL RiTCTL Ci" 

<OV> 

2050 RESTORE 2100 

<IL> 

21140 POKE 77,0:RETURN 

<AN> 

2100 DATA*14,15,16,17,18,19,21,22,23,24, 


22000 POSITION 2,19:POKE 201,5:POKE 752, 


26,27,29,31,33,35,37,40,42,45,47,50,53,5 


1 

<Wlrf> 

7,60,64,68,72,76,01,85,91,76 

<WE> 

22010 2 ,"TCTL QiTCTL RiTCTL RiTCTL RiTC 


2110 DATA*102,108,114,121,128,136,144,15 


TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ri 


3,162,173,182,193,204,217,230,243,255 

<xr> 

TCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL 


2120 GOSUB 21100:FOR X=1 TD 50:READ IT:N 


RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCT 


(X)=IT:NEXT X 

<XW> 

L RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ei" 

<XZ> 

2130 TYPE^=" Leseni*Si e*bi tte*i in*Tex t*wei t 


22015 2 ,"TSHIFT =i*QPTlON*=**Wiederholu 


er":HÖR-5:VER=9 1 GOSUB 70 

<GG> 

ng**TSHIFT =i" 

<UV> 

2140 TYPE^-" drLiecken*Si e*erst*d i e*START- 


22020.7 ,"TSHIFT =i*START**=**Weiter**** 


Taste ,"3 HOR=3:VER=11:GOSUB 70 

<V0> 

****TSHIFT =i" 

<JE> 

2150 TYPES="wenn*e 5 *im*Tex t*ver1angt*wir 


22030 ? ,"TCTL ZiTCTL RiTCTL RiTCTL RiTC 


d -"3 HOR^5:VeR=13s GOSUB 70 

<CT> 

TL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ri 


2200 GOSUB 20000:GOSUB 21100 

<HV> 

TCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL 


2300 LIST 2310 

<QC> 

RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL RiTCT 


2310 FOR P=1 TO 50:FOR V=15 TO 0 STEP -3 


L RiTCTL RiTCTL RiTCTL RiTCTL RiTCTL Ci" 

<ZG> 

:SOUND 0,NCP>,10,V:NEXT ViNEXT P 

<EN> 

22040 IF PEEK(53279>=6 THEN POKE 755,2:G 


2320 IF LINEO2310 THEN ? sLIST 2330 

<Q0>. 

OSUB 21000:RETURN 

<TV> 

23t50 FOR P=50 TO 1 STEP -1:F0R V=15 TO 0 


22050 IF PEEK(S3279)=3 THEN POP :POKE 75 


STEP -3:SOUND 0,N(P>,lO,V:NEXT V:NEXT P 

<YM> 

5,2:POSITION 2,19:? " TESC SHIFT DELiTESC 


2335 IF LINE=2310 THEN 2400 

<QE> 

SHIFT DELiTESC SHIFT DELiTESC SHIFT DEL 


2400 LINE=2310 : GOSUB 22000 

<YP> 

i";:GOTO LII^^ 

<DW> 

2500 RUN "D:SOUND.3":REM CASSETTEN BENUE 


22060 POKE 755,3=POKE 755,2:GOTO 22040 

<XL> 

TZER MUESSEN HIER GRAPHICS 0:END ANSTATT 


25000 POSITION 2,15:2 "TESC SHIFT DELiTE 


RUN“D:50UND-3" EINGEBEN 

<BX> 

SC SHIFT DELiTESC SHIFT DELiTESC SHIFT D 


20000 POSITION 2,20:POKE 201,4:POKE 752, 


ELiTESC SHIFT DELiTESC SHIFT DELi " 5 :RETU 


1 

20010 2 ,"<CTL Q>CCTL RJICTL RJCCTL R>TC 

<PR> 

RN 

<MZ> 

TL RXCTL R>ICTL R J ^CTL RTCCTL R JICTL RI 


Lfstlng 1. Einfache Beispiele mit dem SOUND-BefehL 

TCTL RJCCTL R>ICTL R>TCTL RIICTL R>TCTL 


(SchluS) 



0 REH SOUND-3 < 

c) 1985 by Peter Ger^tner lß/lß/S5 <RB> 

1 REM <UG> 

2 REH <UR> 

3 REM <US> 

10 DIM LINE^:(40> ,N(50> :V0=0:Vl = liV2=2: V3 
=3:60TG Ißß <TJ> 

30 .SOUND V0,NtP>,10,i4=GOTO 50 <VO> 


40 Pß=N(P >:P1C CHORD >:P2-N(CHQRD-4> = P3= 


N(CHaRD-7> <PV> 

42 SOUND Via,P0, 10, i4sSOUND VI ,P1,10,6:SO 
UND V2,P2,10,Ä:SOUND V3,P3,10,6 <FX> 

50 POKE 540,WAIT <VY> 

32 IF PEEKt340><>0 THEN 52 <OU> 

54 SOUND V0,0,0,0:RETURN <GC> 


Ltsling 2. Ein Lied zum Mitsingen. Bitte mit dem Flamen 
»D:SOUND.3« auf Diskette speichern. 




































60 FOR □FF=0 TD 3:SOUND OFF,0,0, 0 :NEXT □ 

FF;RETURN <KN> 

70 P0=N < P):PI=N fCHORD):P2^N C CHORD-4 > = P3= 
N<CH0RD"7) <PY> 

72 FOR DECAY^B TO 0 STEP *-1: SOUND V0,P0, 
10,DECAY:SOUND VI,P1,10,DECAY;SOUND V2,P 
2,i0,DECAY=SOUND V3,P3,10,DECAY <XP> 

74 NEXT DECAYsRETURN <X1> 

100 DATA*0,14,15,16,17,18,19,21,22,23,24 
,26,27,29,31,33,35,37,40,42,45,47,50,53, 
57,60,64,68,72,76,01,85,91,96 <QV> 

1 10 DATA*102,108,114,121,128,136,144,153 
,162,173,182,193,204,217,230,243,255 <FF> 

120 GOSUB 21000:FOR X=0 TO 50:READ lT=Nt 
X)=IT:NEXT X <AB> 

200 POKE 82,4:2 "^":2 <CH> 

210 READ LINES,CHORD,P,WAIT;? LINES:GOSU 
B 40 <SB> 

220 FOR ME =1 TO 2:READ P,WAIT;GOSUB 30:N 
EXT ME:GOSUB 60:WAIT=10:GOSUB 50 <LE> 

223 READ CHORD,P,WAIT:GOSUB 40 <ZF> 

225 FOR ME^i TO 2:READ P,WAIT:GOSUB 30:N 
EXT ME:GOSUB 60:WAIT^10:BDSUB 50 <LT> 

230 READ LINES,CHORD,P,WAIT:2 =2 LINES :8 
OSUB 40 <YB> 

240 FOR ME=1 TO 6 :READ P,WAIT:GOSUB 30:N 
EXT ME;GOSUB 60;WAIT=30:GOSUB 50 <SS> 

250 READ LINES,CH0RD,P,WA1T:2 ;? LINES:G 
OSUB 40 <YF> 

260 FOR ME=1 TO 2:READ P,WAIT:GOSUB 30:N 
EXT ME:GOSUB 60:WAIT“10:GOSUB 50 <LM> 

263 READ CHORD,P,WAIT:GOSUB 40 <2N> 

265 FOR ME=1 TO 2:READ F,WAIT;GOSUB 30:N 
EXT ME:GOSUB 60:WAIT=10;GOSUB 50 <MB> 

270 READ LINE^,CHORD,F,WAIT:? :? LINES :6 
OSUB 40 <YJ> 

280 FOR ME =1 TO 4:READ P,WAIT:GOSUB 30;N 
EXT M£:GOSUB 60:WAIT=30:GOSUB 50 <RS> 

290 READ LINE$,CHORD,P,WAIT:? :? LINE$:G 
OSUB 40 <YN> 

300 FOR ME=1 TO 6 =READ P,WAIT:GOSUB 30:N 
EXT ME <VF> 

320 READ LINE$,CH0RD,P,WAIT;2 :? LINES:G 
OSUB 40 <YA> 

330 FOR ME =1 TO SsREAD P,WAIT:GOSUB 30:N 
EXT ME <WT> 

350 READ LINES,CHORD,P,WAIT:2 :? LINES:G 
OSUB 40 <YG> 

360 FOR HE =1 TO 2:READ P,WAIT:GOSUB 30:N 
EXT ME <TB> 

363 READ CHORD,P,WAIT:GOSUB 40 <ZO> 

365 FOR ME=1 TG 2:READ P,WAIT:GOSUB 30:N 
EXT ME <TQ> 

380 READ LINES,CHORD,P,lfltflIT:2 :? LINES:G 
□SUB 40 <YM> 

390 READ P,WAIT:GOSUB 30 <MM> 

400 READ CHORD,P,WAIT:GOSUB 40 <YU> 

410 READ P,WAIT:GOSUB 30 <LX> 

420 READ CHCH^D,P,«AXT:GOSUB 40 <YY> 

430 READ P,WAIT:GOSUB 30 <MB> 

440 READ CHORD,P,WAIT;GOSUE 40 <20 

450 GOSUB 60:WAIT=10:GOSUB 50:FOR DECAY- 
15 TO 0 STEP -0-5=SOUND V0,N<1),10,DECAY 
:NEXT DECAY <QW> 

460 GRAPHICS 18:2 #6:2 # 6 ; 

<JK> 

510 FOR ME-1 TO S:READ CHORD,P,LINES:POS 
ITION ME*2,10-ME:2 # 6 ;LINES:GOSUB 70:NEX 
T ME <NV> 

530 FOR ME =8 TO 1 STEP -1:READ CHORD,P,L 
INES;POSITION ME*2,10-ME:? #6;LrNES:G0SU 
B 70:NEXT ME <GH> 

540 «AIT=15:GOSUB 50:POSITION 3,11:2 #69 
"DRUECKE^* <ZB> 

550 FOR DECAYs15 TO 0 STEP -0,5:SOUND V0 
,N< 6 >,10,DECAY;NEXT DECAY <CT> 

560 WAIT-IS:GOSUB 50:POSITION 11,11;? #6 
;“START“ <CU> 

570 FOR DECAY= 1 S TO 0 STEP -0,5:SOUND V 0 
,NC 1 ) , 10 ,I^CAY:lsCXT DECAY <UL> 

600 SETCOLOR 0,PEEKC20),10:IF PEEK153279 
)<>6 THEN 600 <JJ> 

605 RESTORE 22000 <CC> 


610 FOR L=1 TO 5 <OV> 

620 GOSUB 21000 <TG> 

630 READ X,Y:LIST X,Y <DL> 

640 GOSUB 20000 <SY> 

650 NEXT L;GOSUB 21000 <EF> 

655 FOR L -1 TO 3 <0M> 

660 READ X,Y:LIST X,Y <DR> 

665 NEXT L <IB> 

670 GOSUB 20000 <TE> 

700 GRAPHICS ISsSETCOLDR 0,1,10:SETCOLOR 
l,ll,12:SETCOLOR 3,4,12 <YÜ> 

710 2 #6:2 # 6 : 2 #69 "«-DRUECKE^opti on" : ? 

#6 5 " -.-.FUER-..W IEDERHOLEN " <HR > 

720 WAIT=60:GOSUB 50 <HV> 

730 2 #6:2 # 6 ;"^^^EfflUECKE^ ^Lart “:2 # 6 ;"* 
^^FUER^WEITER" <F0> 

740 IF FEEKC53279>=3 THEN RUN <KR> 

750 IF PEEKC53279)=6 THEN 900 <IW> 

760 GOTO 740 <FY> 

900 RUN ”D:SOUND,4":REM CASSETTEN BENUET 
ZER MUESSEN HIER GRAPHICS 0:END EINGEBEN 
ANSTELLE RUN ”D=S0UND-4" <GX> 

i 000 DATAAHaen^-chen^k 1 ei —*g i ngj.al “1 e 
in <XL> 

1010 DATA*49,18,30,21,30,21,60,42,20,30, 

23.30.23.60 <JC> 

1020 DATA-fciriji.A-’ta—ri^*SOUND*hin—ein <NI> 

1030 DATA*49,25,3O,23,30,21,30,20,30,18, 

30.18.30.18.60 <HD> 
1040 DATA-..Saund*mi t-..POKE-.—*das*kl i ngt^t 

oll <TP> 

1050 DATA-w49,30,30,33,30,33,60,42,32,30, 

35.30.35.60 <ZX> 

1060 DATA*al-les*WDhl^und*voll <G«> 

1070 DATA^49,37,30,33,30,30,30,30,30,37, 

120 <KC> 

1080 DATA^Rei cht*der*acht-^Bi t-i.SOUND*nich 
L^aus <TB> 

1090 DATA-..42,35,30,35,30,35,30,35,30,35, 

30.33.30.32.60 <FM> 
1100 DATA^mach—en^wir^sech—zehn^Bit*da-r 

aus <QE> 

1110 DATA*49,33,15,33,15,33,30,33,15,33, 
15,33,15,32,15,30,30,0,60 <FM> 

1120 DATAAWiiTjtsindÄ^ i t*-—“*tol l^der^Tric 
k <HO> 

1130 DATA*49,30,30,33,30,33,60,42,32,30, 

35.30.35.60 <ZT> 
1140 DATA*Vielenj.Dank^dem*PO—K£Yj.Chip-t. - 

<BC> 

1150 DATA*49,25,15,26,15 <ON> 

1160 DATA^44,2S,30,32,30 <GP> 

1170 DATA^42,26,30,30,30 <DA> 

1180 DATA*49,25,90 <GX> 

1200 DATA*49,37,C <HB> 

1210 DATA*47,35,D <FT> 

1 220 DATA-.45,33, E < EL > 

1230 DATA*44,32,F <EE> 

1240 DATA*42,30,G <CW> 

1250 DATA*40,28,A <CF> 

1260 DATA*3S,26,B <FC> 

1270 DATA^37,25,C <EV> 

1300 DATA^37,25,c <ZA> 

1310 DATA^38,26,b <ZN> 

1320 DATA*40,28,a < WW > 

1330 DATA*.42,30,g <XT> 

1340 DATA*44,32,+ <ZH> 

1350 DATA-..45,33,e <ZU> 

1360 DATA^47,35,d <&1> 

1370 DATA^49,37,c <CW> 

20 ™© POSITION 2,20:POKE 201,4:POKE 752, 

1 <PR> 


20010 ? ,“-[CTL QICCTL RXCTL RXCTL RXC 
TL RXCTL RXCTL RXCTL R J <CTL RXCTL R5 
CCTL RJCCTL RJCCTL RJ<CTL RI<CTL RIICTL 
R:^<CTL RICCTL R> CCTL R5ICTL RI ICTL RXCT 
L KJ<CTL RXGTL R J <CTL RXCTL R JICTL RX 
CTL RXCTL EI" <AT> 

20020 ? ,"CSHIFT =J*DrueckB*START*'fuer*n 
eiter^-CSHlFT =>" <PW> 

20030 2 ,"<CTL ZJICTL RI <:CTL Rl <CTL RXC 
TL RXCTL RXCTL RXCTL RXCTL RXCTL RJ 
Listifig 2> Ein üed zum Mitsifigen. (Fortsetzung) 
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<CTL Rl^CTL R>^CTL R>-CCTL RI ^CTL R> tCTL 
RI^CTL RI^CTL R> ^CTL R J <CTL RXCTL RI CCT 
L RI^CTL RI^CTL RI^CTL RXCTL RI ^CTL RIC 
CTL RICCTL CI" <BW> 

213040 IF PEEK<53279y<>6 THEN 20040 <VY> 

20050 RETURN <TS> 

2t000 GRAPHICS 0ISETCOLOR 2,9,0:SETCOLOR 
4,9,0:SETCOUOR l,9,12:POKE 752,1:PDKE 8 
2,2 t;POKE 83,39: PÖKE 201,3 <01 > 


21010 POSITION 2,0:7 , " <:CTL QI CCTL RXCT 
L RXCTL RICCTL RI tCTL RItCTL RXCTL RI t 
CTL RItCTL RICCTL RXCTL RI tCTL ^RI tCTL R 
ItCTL RICCTL RI CCTL RI ^CTL RI CCTL RXCTL 
RICCTL RI<CTL RI CCTL RICCXL RXCTL RI <C 
TL RICCTL RICCTL RI CCTL RXCTL RI tCTL EI 


" <JA> 

21020 ? ,"CSHIFT =I .ivBEGLEITUNG^hIT^DUR^A 
KKORDE^TSHIFT =1“ <Ka> 

21030 7 ,''<CTL ZXCTL RICCTL RICCTL RI CC 
TL RICCTL RICCTL RICCTL RICCTL RICCTL RI 
CCTL RICCTL RICCTL RICCTL RICCTL RICCTL 
RICCTL RICCTL RICCTL RICCTL RICCTL RICCT 
L RICCTL RICCTL RICCTL RICCTL RICCTL RIC 
CTL RICCTL RICCTL RICCTL-CI“ <HN> 

21040 PQKE 77,0:RETURN <AK> 

22000 DATA^0,10,100,120,21000,21040,100 
210,30,74,210,220,40,54,1000,1010 <RZ> 


üstirtg 2. Ein üed zum MHsingen- (Schluß) 


0 REM SOUND-4 ( 

c) 1985 by Peter Gerstner 11/10/85 <UE> 

1 REM <‘UQ> 

2 REM <UR> 

3 REM <UB> 

10 DIM TYPESC40),N(S0V:V0=0;Vl=lsV2=2:V3 
=3:P0KE 02,2:? "CESC CTL -I"=GOTO 100 <PD> 
50 POKE 540,WAIT <VY> 

52 IF PEEK<540)00 THEN 52 <0U> 

54 RETURN <ML> 

60 FOR DFF^O TO 3:SOUND OFF,0,0,0;NEXT O 

FF:RETURN <KN> 

70 L1NE=LEN<TYFE$);POSITION HOR,VER <NG> 

72 FOR ME=1 TO LINE=? TYPESCME,ME>;=IF T 
YPE#<ME,ME>="*“ THEN 76 <DL> 

74 REM SOUND 0,25,4,6:FOR DECAY=6 TO 0 S 
TEP -0-5:SOUND 0,10,0,DECAY:NEXT DECAY <AG> 
76 NEXT ME:RETURN <NZ> 

100 DATA-..14,15,16,17,18,19,21,22,23,24,2 
6,27,29,31,33,35,37,40,42,45,47,50,53,57 
,60,64,68,72,76,81,85,91,96 <WW> 

110 DATA-».102,108,H4,121,128, 136,144,153 
,162,173,182,193,204,217,230,243,255 <FP> 

120 GOSUB 21000:FOR X=1 TO 50:READ IT:Nt 
X>-IT:NEXT X <AY> 

130 TYPEBi 11e^den-^Beg 1 ei tte5< t*Fuer ^SO 
UND - .4-." = HOR=31 VER^9: GOSUB 70 < CZ > 

140 TYPE#= ■' 1 esen-..und-^€rsti e*START-Tast 
e^druecken":HOR=l:VER=11:GOSUB 70 <QX > 

150 T VPE^—” wen n ^es^i ffi^Tex t *ver langt -«.wi r d 
- ■^:H0R=5: VER=13:BOSUB 70 <UA> 

160 GOSUB 20000=GOSUB 21000 <XP> 

190 TYPE$=’*DUR**AKKORDE: " s HOR=l 4: VEft=6: G 
DSUB 70:GOSUB 50:7 :? :LIST 200,210 <HF> 

200 FOR X=13 TO 50:SOUND 8,NCX),10,14sSO 
UND l,N<X-4>,10,6:SOUND 2,NCX-7),10,6:SO 
UND 3,N<X-12),10,6 <XG> 

210 GOSUB 60:NEXT X <PB> 

215 IF LINEO200 THEN 7 :LIST 220,230 <FU> 

220 FOR X=50 TO 13 STEP -1:SOUND 0,N<X), 

10, 14: SOUND 1 ,N <X"'4) , 10,6:SOUND 2,N (X-7> 
,10,6:SOUND 3,NtX-l2>,10,6 <KH> 

230 GOSUB 60:NEXT X <PF> 

240 LINE=200:GOSUB 22000 <RR> 

250 TYPES=*’MOLL*AKKORDE: ” : HDR^14: VER=6: G 
OSUB 70:GaSUE 50:7 :LIST 260,270 <IK> 

260 FOR X=13 TO 50:SaUND 0,N<X>,10,14:50 
UND l,N<X-3),10,6:SÖUND 2,N(X-7),10,6:SO 
UND 3,NCX-12),10,6 <VT> 

270 GOSUB 60:NEXT X <PN> 

280 IF LINEO260 THEN 7 :LIST 290,300 <PA> 
290 FOR X^50 TO 13 STEP -1:SOUND 0,N<X>, 

10,14:SOUND 1,NtX-3>,10,6:SOUND 2,N<X-7>, 
,10,6:SOUND 3,N<X-12),10,6 <I0> 

300 GOSUB 60:NEXT X <PA> 

310 LINE=260:GOSUB 22000 <UA> 

320 X=49 <AV> 

330 TYPES="C*DUR":HOR=17:VER=6:GOSUB 70: 

GOSUB 50:7 :LIST 340:7 <AB> 

340 X=49:SOUND 0,N(X>,10,14:SOUND 1,N<X- 
4),10,6:SQUND 2,N<X-7),10,6:SOUND 3,NCX- 
12),10,6 <AC> 

350 WAIT=60:GOSUB 50:GOSUB 60 <HZ> 

360 IF LrN£<>340 THEN TYPES^"C*MDU-":HÖR 
^17:VER=12:GOSUB 70:GOSUB 50:7 :LIST 370 


:7 <DU> 

370 X=49: SOUND 0 ,N ( X > , 10, 14: SOUND t,N<X”’ 

3),10,6:SOU?^ 2,N<X-7),10,6:SOUND 3,NCX- 
12),10,6 <VT> 

380 WAIT^60:GOSUB 50=GOSUB 60 <IF> 

390 LINE=34Ö;GOSUB 22000 <UE> 

400 TYPE:t= “ OK, —zLtrueck^zLum—normal en-^SOUN 
D”:HOR=5:VER^6:GOSUB 70 <XT> 

410 TYPES= " Bet eh 1 -.-Lind*machen*ei nen*Ver g 1 
eich-":H0R=3:UER=S=GOSUB 70:GOSUB 50 <UT> 

420 TYP£^= “ Di e*t i et ete*Note-^di e*wi r *mi t" 

: HOR=^6 : VER= 10: GOSUB 70 < RM > 

430 TYPE*-" mi t*D ISTORTION* 10*bekonimen*kD 
ennen,":HOR^3:VER=12:60SUB 70:GOSUB 50 <WW> 

435 TYPE*-"i5t-^ein-..tietes-..'B'- ":H0R-11:V 
ER-14:GOSUB 70:GOSUB 50 <LT> 

440 TYPE*=“SOUND*V0,255,10,8":HOR=i2:VER 
=16:GOSUB 70:GOSUB 60:SOUND 90,255,10,8: 

GOSUB 50:GOSUB 60 <FV> 

450 GOSUB 20000;GOSUB 21000 <XQ> 

500 TYPE*-"VergleichBn*wir-..nLin-.-zwei*SoLin 
d&---":H0R=4:VER-6:GOSUB 70:GOSUB 50 <XF> 

510 TYPE*= “SOUND-.V0,255,10,8": HÖR-12 : VER 
=8:GOSUB 70:GOSUB 50 <3E> 

520 SOÜND V0,255,10,8:GOSUB 50:GOSUB 60= 

GOSUB 50 <YS> 

530 TYPE*="SOUND*V0,33,12,8":H0R=12:VER- 
10:GOSUB 70:GOSUB 50 <MF> 

540 SOUND 98,33,12,8;GOSUB 58:GOSUB 60:6 
DSUB 50 <VJ> 

550 TYPE*= “Di e-kT on q ual i t aet * i st *ver sc h i e 
den*aber";H0R=2:VER-12:GOSUB 70 <AD> 

568 TYPE*=“die*aktLielle*PlTCH*ist*das-..gl 
eichet-":HOR=2:VEB=14:SOSUB 70; GOSUB 50 <UZ> 
570 POSITION 12,8:7 " SOUND^V0,255,10,8 ": 
POSITION 12,10:7 "SOUND-..V0,33, 12,8" :SOUN 
D 90,255,10,8 <KF> 

580 GOSUB 50:GOSUB 60:GOSUB 50:POSITION 
12,8:7 “SOUND*90,255,10,8“ <V0> 

590 POSITION 12,10:7 " SQUND*V0,33,12,8 “: 

SOUND V0,33,12,8:BDSUB 50:GOSUB 60=GOSUB 
50 <I0> 

600 POSITION 12,8:7 “ SOUND-.90,255,10,8 "; 

SOUND 90,255,10,8;POSITION 12,10:7 "SOUN 
D*V1,33,12,3 “ = SOUND 91,33,12,8 <NS> 

610 GOSUB 50:eOSUB 60:LINE=570:GOSUB 220 
08 <92> 

620 TYPE*=“Wir*koennea*mit*DISTÖRTION-12 
":H0R=5:9ER^6:GOSUB 78 < RJ > 

630 TYPE*-"anstatt*DISTÖRTION-1O*noch*ti 
etere":H0R^3:VEft=8:GÜSUB 70:GOSUB 50 <NE> 

635 TYPE*=“BASS-NDTEN-bekommen-":HOR=11: 
9ER=10:GOSUB 70:GOSUB 50 <SP> 

640 TYPE*="ZUM-BEISPIEL:":H0R-14:9ER=12: 

GOSUB 70:GOSUB 58 <YQ> 

700 DATA*25,27,2S,30,31,33,36,37,40,42,4 
5,43,51,52,57,60,63,67,72,75,82,85,90,97 
,102 <FN> 

710 FOR BASS=1 TO 25:READ P0:FOR DECAY=1 
5 TO 0 STEP -1 <AT> 

720 POSITION 12,14:7 "SOLHviD-90, “;P0; " , 12 
,”;C^CAY;SOUND 90,P0,12,DECAY:NEXT D 
ECAY:NEXT BASS <JH> 


tisting 3- Verschiedene Akkorde. Bitte mit dem Namen 
»D:SOUND.4ö auf Diskette speichern. 
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750 RESTORE 700^LINE=710:GOSUB 22000 <CE> 

800 TYPE^= *' Das^riaechste^Progr amm^er 1 aubt 
^uns ■*: HOR=^: VER=^&s BOSUB 70 < XP > 

810 TYPE^=vergeh i edene*Sounds*anz uhoer^ 
n,^w^nn”s H0R=3:VER=B:GQSUE 70 <DK> 

820 1 YPE^= wi r t ^den* Joyst i ck*P ITCH , *V 

□LUME, " : l-tOR=3^ VER=^ 10= BOSUB 70 < XO > 

830 TYP£^= " und*D I STÖRT I ON^veraendern , : H 
GR=7:VER=12 = BOSUB 70 = BOSUB 20000 < DO > 

840 RUN "DiSOUND,5":REM CASSETTEN BENUET 
ZER MUESSEN HIER BRAPHICS 0;END EINGEBEN 
ANSTELLE VON RUN "D;SOUND-5" <RB> 

20000 POSITION 2,20=PQKE 2ai,4iPOKE 752, 
l <PR> 


20010 ? ,"<CTL ß>tCTL RJ tCTL R:^ CCTL R>CC 
TL R>^:CTL RJtCTL RI^ {;CTL R> CCTL R5 ^CTL RI 
^CTL R>CCTL R>tCTL R>i:CTL R J CCTL R> tCTL 
R5CCTL RJ<;CTL R J CCTL R3 ^CTL RXCTL R J <CT 
L R>CCTL R>CCTL R>CCTL RJCCTL R>tCTL R>C 
CTL RXCTL EJ" <AT> 

20020 ? ,"CBHIFT =>Lteci<e^ START ^4^ 
ex ter>.-CSHIFT =>" <PW> 

20030 ? ,“^CTL 2XCTL RICCTL R>CCTL R J 
TL R>CCTL R>tCTL RXCTL R>^CTL RJ CCTL R> 

CCTL RJtCTL RJCCTL RXCTL RXCTL R J ^CTL 
R>tCTL R>CCTL R>CCTL R5CCTL R>CCTL R>CCT 
L R>CCTL RJCCTL R>CCTL R>CCTL R^CCTL R>C 


CTL R>CCTL C>" <BUI> 

20040 IF PEEK (5327V) 06 THEN POKE 755,3s 
POKE 755,2=00X0 20040 <W> 

20050 POKE 755,2:RETURN <CS> 

21000 BRAPHICS 0:SETCOLOR 2,9,0:SETCOLOR 
4,9,0sSETCOLOR 1,9,12:POKE 752,1=POKE S 
2,2:POKE 83,37:POKE 201,8 <IN> 

21010 ? ,"CCTL 0>CCTL RICCTL RJCCTL R>CC 


TL R>CCTL R>CCTL RJCCTL R>CCTL R>CCTL RI 
CCTL RICCTL RICCTL RICCTL RICCTL RICCTL 
RI CCTL RICCTL RI CCTL RI CCTL EI” <Jri> 

21020 ? ,”CSHIFT =J*Der*SÜUW*Be-fehl^CSH 
IFT =1" <IV> 

21030 ? ,"CCTL ZICCTL RICCTL RICCTL RICC 
TL RICCTL RICCTL RICCTL RICCTL RICCTL RI 
CCTL RICCTL RICCTL RICCTL RICCTL RICCTL 
RICCTL RICCTL RICCTL RICCTL CI" <LH> 

21040 POKE 77,0:RETURN <AK> 

22000 POSITION 2,19:POKE 201,5:POKE 752, 

1 <WW> 

22010 2 ,"CCTL QICCTL RICCTL RICCTL RICC 
TL RICCTL RICCTL RICCTL RICCTL RICCTL RI 
CCTL RICCTL RICCTL RICCTL RICCTL RICCTL 
RICCTL RICCTL RICCTL RICCTL RICCTL RICCT 
L RICCTL RICCTL RICCTL RICCTL RICCTL EI" <XZ> 


22015 ? ,"€SHIFT =I-^OPTION*=**UIiedGrholu 
ng^*CSHlFT =1" <UV> 

22020 2 ,"CSH1FT =>*STA^**=**Weiter 
****CSHIFT =1” <JE> 

22030 ? ,"CCTL ZICCTL RICCTL RICCTL RICC 
TL RICCTL RICCTL RICCTL RICCTL RICCTL RI 
CCTL RICCTL RICCTL RICCTL RICCTL RICCTL 
RICCTL RICCTL RICCTL RICCTL RICCTL RICCT 
L RICCTL RICCTL RICCTL RICCTL RICCTL CI" <ZG> 
22040 IF PEEK(53279)=6 THEN POKE 755,2:6 
OSUB 21000= RETURN <TV > 

22050 IF PEEK (53279) THEN POP :POKE 75 
5,2=POSITION 2,19=2 "CESC SHIFT DELICESC 
SHIFT DELICESC SHIFT DELICESC SHIFT DEL 
>";=60T0 LINE <QW> 

22060 POKE 755,3:POKE 755,2=BOTO 22040 <XL> 

Ltstmg 3. Verschiedene Akkorde. (SchluB) 


0 REM SOUND-5 

Cc> 1985 by Peter Ber^tner 13/10/85 <QJ> 

1 REM <UQ> 

2 REM <UR> 

140 SRAtf^HlCS 2= POKE 752,1: POKE 710, 145: P 

OKE 712,145=POKE 201,10=2 "CESC CTL -I" <NX> 

150 2 "JOYSTICK^u-F/ab^^^***=^TONHOEHE" <I2> 
160 7 "JOYSTICK*trigger****^=*VERZERRUN 
B" <ZR> 

170 ? "JOYSTICK^links/rBchts...=*LAUTSTAER 
KE" <WV> 

180 7 "DRUECKE^EINE^BELIEBIGE...TASTE^FUER 
...END"; <VW> 

190 POKE 764,255 <WZ> 

200 VOLUME=2 <R0> 

210 DISTORTIÜN=10 <KG> 

220 D£LAY=320 <AQ> 

230 IE STICK(0)=14 THEN PITCH=PITCH+1:IF 
PITCHI255 THEN P1TCH=2S5 <XK> 

235 IF STICK C0) =13 THEN PITOL-PITCH-l = IF 
PITCH<0 THEN PITCH=0 <DP> 


240 IF STRIB(8)=0 THEN DI STÖRTION=DISTÖR 
T10N+2S GOSUB DELAY < YM> 

250 IF DISTÖRTION=16 THEN DISTORTION=0 <PM> 
260 IF STICK<0)=7 TFEN VQLUME=VOLUME+1:I 
F V0LUMEI15 TFEN V0LUI1E=15 <BX> 

270 IF STICKC0) =11 THEN V0LU!1E=V0LUME-1: 

IF VOLUME<0 THEN VOLUME=0 <FU> 

280 IF PEEK (764)0255 THEN BRAPHICS Os PO 
KE 764,255=POKE 752,0=RUN "D=SOUND.6" <FA> 

290 POSITION 2,4=? #6;"^ound*0,";PITCH;" 

, " jDISTDRTION; " , " ; VOLUME; <CM> 

300 SOUND 0,PITCH,DISTÖRTION,VOLUME <ZB> 

310 SETCOLOR 0,DISTORTIPN,10=SETCOLOR 1, 
VOLUME,10=POKE 77,0=GOTO 230 <SN> 

320 FOR WAIT=1 TO 100:NEXT WAIT;RETURN <YJ> 
330 REM CASSETTEN BENUETZER MUESSEN IN Z 
EILE 280 'RUN "D:S0UND-6" ' AENDERN IN ' 
GRAPHICS 0:EhlD ' <QA> 


Listing 4. Experimentieren mit dem SOUND^efehL Sitte 
mit dem Namen »»DrSOUND.S« auf Diskette speichern. 


0 REM SOUND-6 

( 


191 REM 

<BD> 

c> 1985 by Peter Ger^tner 03/06/85 


<LN> 

200 FOR P0=10 TO 2 STEP -0.02=VOC=F0/2=S 


1 REM 


<UQ> 

CUND V0,P0,S,VOL:SOUND VI,P0+1,B,VOL 

<DT> 

2 REM 


<UR> 

210 SCMJND V2,P0+2,8,VOL:SQUND V3,RND<0)* 


3 REM 


<us> 

3,8,VOL 

<XY> 

10 V0=0:V1=1:V2=2:V3=3:POKE 82,2:POKE 83 


220 FOR P0=3 TO 12 STEP 0.02: VCM_=P0/2: SO 


,39:6070 2000 


<TX> 

UND VO,P0,S,VOL=SOUND Vl,P0+1,8,VOL 

<TC> 

50 POKE 540,WAIT 


<VY> 

230 SOUND V2,P0+2,8,VOLsSOUND V3,RND(0)* 


52 IF PEEK(540)00 THEN 52 


<OU> 

3,S,V0L:NEXT P0 

<SK> 

54 FOR OFF=0 Tü 3:SOUND aFF,0,0,0:NEXT 0 


240 FOR P0=10 TO 2 STEP -0.02=VOL=P0/2=S 


FF= RETURN 


<KU> 

OUND V0,P0,8,VOL=SOUND VI,P0+1,8,VOL 

<EB> 

89 REM 


<KN> 

250 SOUND V2,P0+2,e,Vi:B_:SOUND V3,RND(0>* 


90 REM *** MACHINE BUN *** 


<QM> 

3,S,V0L:NEXT P0:BOSUB 54:RETURN 

<MB> 

91 REM 


<JY> 

2Ö9 f^M 

<CA> 

100 FOR SH0T=1 TD 12=FOR V0L=15 TO 0 

STE 


290 REM *** LAZERS/PHOTONS ihmi- 

<CQ> 

P -5:SOUND V0,80,0,VOL:SOUND VI,60,0 

,VOL 

<VA> 

291 REH 

<BE> 

110 SOUND V2,2O0,4,VOL:SOUND V3,10,4 

,VOL 


300 FOR SHOT^l TO 6:FOR P0=0 TO 200 STEP 


:NEXT VOL:GOSUB 54:NEXT SHDT 


<GH> 

10 

<EN> 

120 RETURN 


<MP> 



189 REM 


<BZ> 

Listing 5. Verschiedene Sound-Effekta Bitte mit dem 

190 REM SURF/WAVES *** 


<TY> 

Namen »D:SOUND.6« auf Diskette speichern. 
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310 SOUND Vß,PB,0,8:SOUND VI,PB,10,8=SOU 


1200 FOR 1=0 TD 3 

<WL> 

MD V2,P0,12,8=SOUND V3,Pß,4,8 

<AJ> 

1210 FOR X=15 TO 0 STEP -0.2 

<Y0> 

320 NEXT P0:NEXT SHOT:GOSUB 34;RETURN 

<YW> 

1220 SOUND 0,X,i2,S 

<TM> 

389 REM 

<CB> 

1230 FOR DELAY=1 TO 2=NEXT DELAY 

<TL> 

390 REM *** POLICE/FIRE SIREN *** 

<DP> 

1240 NEXT X 

<LD> 

391 REM 

<BFy 

1250 NEXT 1:SOUND 0,0,0,0:RETURN 

<BO> 

400 FOR P0=200 TO 50 STEP - 1 =SOUND va,P0 


1289 REM 

<VK> 

,10,8:SOUND VI,P0+2,10,6:SOUND V^,P0+4,1 


1290 J^M *** THUNDER *** 

<FK> 

0,2:SOUND V3,P0+6,10,ZsNEXT P0 

<TG> 

1291 FIEM 

<UH> 

420 FOR PB^30 TO 160 STEP 0-2sStKJND V0,P 


1300 FOR PO=l TO 3 

<IX> 

a,i0,e:SOUND Vl,pa-^2,1B,6:SC1UN0 V2,P0+4, 


1310 Y=INT<255*RNDCl>+20) 

<ZY> 

10,4=SOUND V3,P0+6,10,2:NEXT P0 

<MT> 

1320 X=RND<1)*75 

<BG> 

430 GOSUB 54: RETURN 

<QZ> 

1330 FOR Pl=l TO Y 

<JZ> 

4S9 REM 

<CC> 

1340 SOUND 0,PI,8,15 

<cw> 

490 REM *** AIR RAID SIREN *** 

<ZX> 

1350 NEXT PI 

<EZ> 

491 REM 

<BG> 

1360 FOR DELAY=1 TO X:NEXT DELAY 

<YO> 

500 FOR LOQP=l TO 6:FOR P0=1 TO 20:SOUND 


1370 NEXT PB:SOUND 0,0,0,0:RETURN 

<BY> 

V0,S0+P0,12,S:NEXT P0 

<K0> 

1389 REM 

<VH> 

510 SOUND V0,30,10,12:SOUND 91,100,10,12 


1390 REM *** OLD AIRPLANE *** 

<IÜ> 

:SOUND V2,13,4,12 

<m> 

1391 REM 

<UJ> 

520 NA IT-30: GOSUB SBslsEXT LOOP 

<QX> 

1400 FOR X=1 TO 400 

<TU> 

530 FOR V^12 TO 0 STEP -0.1:SOUND V0,C20 


1410 SOUND 0,99,10,8 

<RR> 

-V>*10,10,V=SOUND VI,(20-V>*10+20,10,V:S 


1420 SOUND 0,0,0,0 

<HK> 

□UND V2,13,4,V=NEXT V 

<OJ> 

1430 NEXT X:RETURN 

<KH> 

340 GOSUB 54=RETURN 

<RC> 

1489 REM 

<V0> 

389 REM 

<CD> 

1490 REM »** PLANE CRASHING *** 

<NC> 

390 REM *** TELEPHONE RINGING *** 

<BM> 

1491 REM 

,<UL> 

591 REM 

<BH> 

1500 FOR X=255 TO 0 STEP -1 

<HW> 

600 FOR RING=1 TO 2:F0R LOUD-l TO 35=SOU 


1510 SOUND 0,X,8,B 

<NJ> 

ND V0,20,10,8:SOUND VI,1,2,8 

<MN> 

1520 FOR I-t TO 5 

<YR> 

610 FOR LQOP=l TO 2s SOUND V0,25,10,8=SOU 


1530 NEXT I:NEXT X 

<G0> 

ND Vl,0,2,8slv£XT LCMDPsSDUND V0,0,0,0:SDU 


1540 FOR X=15 TO 0 STEP -1 

<CN> 

ND VI,0,0,0:NEXT LOUD 

<IL> 

1550 SOUND 0,25,16,X 

<OX> 

620 FOR V=7 TO 0 STEP -0.2:SOUND V0,20,l 


1560 FOR 1=1 TO 20 

<EK> 

0,V:SOUND VI,0,2,V:NEXT V 

<CG> 

1570 NEXT Izl^XT X 

<HA> 

630 WAIT=90;GOSUB 50:NEXT RING:GOSUB 54: 


1580 RETURN 

<QB> 

RETURN 

<0H> 

1999 STOP 

<DW> 

689 REM 

<CE> 

2000 REM *** MENU OPTimS *** 

<X0> 

690 REM *** WHISTLING BOMB *** 

<CI> 

2010 GRAPHICS 0:SETCOLOR 2,15,0:POKE 752 


691 REM 

<BI> 

,l:POKE 201,10:? 

<EN> 

700 FOR P0=0 TO 150:SOUND 0,P0,10,P0/15+ 
2:NEXT PO 

<BA> 

2020 ? ,”TCTL QJCCTL R3^CTL R>CCTL R>TCT 
L R3CCTL R3CCTL R>CCTL RTCCTL R3<CTL R3C 


710 FOR P0=^0 TO 240 STEP 5 s VOL=14-P0/20: 
SOUND VB,P0,0,VCft_=SOUND Vl,PB,B,VOL 

<FC> 

CTL R>CCTL RJiCTL R3^CTL R>^CTL R3CCTL R 
XCTL E3" 

<VE> 

720 SOUND V2,P0+15,2,VOL:NEXT P0:GOSUB 5 
4:RETURN 

<cc> 

2030 ? ,'‘^SHIFT =3*S0UND-..EFFEKTE*^SHIFT 

.. 

<ED> 

789 REM 

<CF> 

2040 ? ,"^CTL Z3CCTL R3CCTL R3TCTL R3CCT 


790 REM *** SPACE SHIP *** 

<LF> 

L R3CCTL R3CCTL R3CCTL R3CCTL R3CCTL R>C 


791 REM 

<BJ> 

CTL R3CCTL R3CCTL R3CCTL R3CCTL R3CCTL R 


800 SOUND V2,0,8,2:FOR VOL=l TO 15 STEP 


3CCTL C3":PQKe 201,9=? 

<SV> 

0.1:SOUND V0,25,4,VOL=SOUND Vl,13,4,VOL: 


2050 POKE 201,5 

<MJ> 

NEXT VOL 

<SH> 

2100 ? ,”^<l>.J^OIINE^GUN“ 

<AH> 

S10 FOR V0L=14 TO O STEP -0.1:SOUND V0,2 


2110 ? ,"*<2>-.SURF*WAVES*‘ 

<Q0> 

□ ,4,V[:ft_=SOUND VI, 13,4,VOL:NEXT VOL 

<6K> 

2120 ? ,"*<3>*LAZER*FIRE‘' 

<RE> 

820 GOSUB 54:RETURN 

<Re> 

2130 2 ,"*<4>*P0LICE-i.SIREN“ 

<M0> 

889 REM 

<CG> 

2140 ? ,"*<5>*AIR*RAID*SIREN" 

<FK> 

890 REM *** SPACE ECHO *** 

<VN> 

2150 ? ,*'*<6>*TELEPHONE*RHvKING‘^ 

<0N> 

891 REM 

<EK> 

2160 ? 7 >^NHISTLING-.BOMB“ 

<NN> 

900 FOR V0L=15 TO 0 STEP -0.2:FOR P0=0 T 


2170 ? ,"*<8>^SPACE*SHIP" 

<RY> 

0 5:SOUND V0,P0,2,VOL:SOLHMD V1,P0+1,2,VO 


2180 ? ,*’-.<9>*SPACE*ECH0" 

<BE> 

L:N£XT PB 

<UF> 

2190 ? ,"<10>-.DOOR*BELL" 

<BD> 

910 FOR P1-VOL*10 TO VOL STEP -10:SOUND 


2200 ? ,“<11>^U2ZER” 

<UM> 

V0,P1,10,VOL=SOUND Vl,Pl+V0L,10,VaL:NEXT 


2210 ? ,"<12>^GALAXY^CANTINA*MUSIC“ 

<HW> 

PI=NEXT VOL 

<D6> 

2220 ? ,”<13>^THUNDER" 

<R6> 

920 RETURN 

<MX> 

2230 ? ,"<14>*0LD*AIRPLANE" 

<IU> 

999 REM 

<CH> 

2240 ? ,"<15>...PLANE-i.CRASHING" 

<JZ> 

990 REM *** DOOR BELL *** 

<TK> 

2500 ? ,“<16>*RUN*LAST*PRQGRAM- 

<IW> 

991 REM 

<BL> 

3000 POKE 53279,0:? :? ,"**^^WELCHE*NR. 


1000 FOR VOL=15 TO 0 STEP -0.5=SOUND Vß, 


";:TRAP 9000: IfvffTJT CHOICE=TRAP 40000 

<xw> 

29,10,VOL:SOUND VI,30,10,VOL:NEXT VOL 

<FS> 

3010 CHOICE^INT<CHOICE)sIF CHOICECl OR C 


1010 FOR VQL=15 TO 0 STEP -0.5:SOUND VO, 


H01CEM6 THEN 9000 

<ZM> 

35,10,VOL:SOUND VI,36,10,VOL:NEXT VOL 

<PA> 

3020 IF CH0ICE=16 THEN RUN “D:SOUND-7" 

<SC> 

1020 RETURN 

<0Z> 

3030 BRAPHICS OsSETCOLOR 2,CHOICE,0 e? :? 


1089 REM 

<VG> 

= ? :? =HST CHOICE*!©©-10,CHOICE*!00+80 

<BB> 

1090 REM **# BUZZER *** 

<HA> 

3040 GOSUB CHOICE*100;? :? =? "...^..JHJRECK 


1091 REM 

<UD> 

E-.£rNE^TASTE^FUER*MENUE " ; ; POKE 764,255 

<CS> 

1100 SOUND 0,40,6,10 

<HL> 

3050 IF PE£K€764)=255 THEN 3050 

<XC> 

1110 FOR DELAY^l TO 400 

<XH> 

3060 POKE 764,255:GOTO 2000 

<SK> 

1120 iv^XT DELAY 

<cz> 

9000 RUN 

<XW> 

1130 SOUND 0,0,0,0rR£TURN 

<DL> 

9010 REM CASSETTEN BENUETZER MUESSEN IN 


1189 REM 

<VI> 

ZEILE 3020 'RUN “D;SOUND.7"' AENDERN IN 


1190 REM *** GALAXY CANTINA MUSIC *** 

<YW> 

'GRAPHICS 0:£ND' 

<CG> 

1191 REM 

<UF> 

Listing 5, Verschiedene Seund-EffekteL (SchluB) 
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0 REM SOUND-7 ( 

c) 1985 by Peter Ger^tner 26/11/85 <OB> 

1 REM <UO> 

2 REtt <UR> 

3 REM <ÜS> 

100 SDTQ 10000 <JC> 

500 POSITION 1,0;FOR ME=0 TO S:POSITION 
6,riE+2=9 #6;53760+ME? "="?N<ME) ; NEXT 

ME <DZ> 

600 7 #6;''WÄehlejLspeicherzelle*'; <SF> 

700 POSITION 5,2:? #6;"CESC CTL ■i->":Y=2 <ZS> 
720 ^STICKt01:IF S=14 AND Y>2 THEN POSI 
TIÜN 5,Y:? #6;"*":Y=Y-1=POSITION 5,Y=? # 
6;CHR$(30>:GÖSUB 3000 <XN> 

730 IF PEEK(764)0255 THEN 12000 <CH> 

740 IF S==13 AND Y<10 THEN POSITION 5,Y = ? 

#6; *'*"sY=Y+l: POSITION 5,Y:? #6;CHRitC30> 
iGOSUB 3000 <RF> 

760 IF STRIG(0)=1 THEN 720 <AB> 

800 GC=Y-2 <UB> 

900 POSITION 0,11;? #6;"*trigger^auslass 
en-.-.**; <EE> 

1000 IF STRie(0)^0 THEN 1000 <YL> 

1010 POSITION 5,Y:? #6;"*" <SE> 

1020 P=53760+GC;L$^STR4^CP):FOR ME=1 TO 5 
: IT^SCCLS CME,ME> ) : IT=IT+i28:L^ CME,ME)=C 
HRS<IT):NEXT ME <TQ> 

1030 POSITION 6,Y:? #6;L^ <BP> 

1040 POSITION 0,11:? #6j‘'-.--.-aender^poke 

<NN> 

2000 S=STICK(0);IF S=14 AND N(GC><255 TH 
EN N(GC)=NCGC)+1 <PW> 

2020 IF PE£K(764)0255 THEN 12000 <UE> 

2100 IF S=13 AND N(GC)>0 THEN N(eC)^(GC 
)-l <QE> 

2200 POKE P,NCGC)sPOSITION 12,Y:? #6;N(G 
C) ; CUU> 

2300 IF STRIG(0)=1 THEN 2000 <AJ> 

2400 POKE 65,0:GOTO 500 <OJ> 

3000 FOR ME=1 TO 10tPOKE 53279,0:POKE 53 
279,S:NEXT t-E: RETURN <LM> 

10000 GRAPHICS 18:DIM N(S>,LSC5)t^IUND 0 
,0,0,0:PDKE 710,154:POK£ 709,204 <JM> 

10010 REM * LITERALS IN LINE 10100 ARE I 
NVERSE VIDEO <VC> 

10100 7 #65 "^^■^^ SOIMD^.^ITOR ”;? #6;“«** 
**-**-m-******-i(-'*;POKE 764,255 <SZ> 

11000 FOR ME=0 TO 8;NCME)=0:NEXT ME:CLOS 
e #1:0PEN #1,4,0,"K:":GOTO 500 <US> 

12000 FOR A=0 TO 3:SOUND A,0,0,0:NEXT A: 

POKE 65,3 ■ <GG> 

12010 RUN "DrSOUND-S" <«□> 

12020 RE« <NW> 

12030 REM Cas^etten Benutzer Zeile 12010 

aendern in 'GRAPHICS 0;END' <PZ> 

Listing 6. Sound-Editor- Bitte mit dem Namen 
»D:SOUND.7« auf Diskette speichern. 


0 REM SOUND-8 <HR> 

1 REM <UO> 

2 REM <UR> 

3 GRAPHICS 1+16 <IJ> 

4 SETCOLOR 0,4,6sSETCOLOR I,0,12:SETCOLO 

R 2,li,4:BOSUB 2000 <XS> 

5 FOR 1=0 TO 3:S0UND 0,100,10,0:NEXT I <XL> 

10 DIM B(3) <BH> 

20 BC1)=12S:B(2)=0:B(3)=128 <ZD> 

40 POHE 53768,4;SO=130:POKE 53763,130 <KP> 
50 BC=3sRESTORE 1000 <Ta> 

100 READ T:IF T=-l THEN RESTORE li00:REA 

0 T <UK> 

105 IF PEEKt53279)=6 THEN GRAPHICS 0sNEW 

<0K> 

110 BC=BC+1:IF BC=4 THEN BC=1 <KR> 

115 SO=SÖ-10:IF SO=0 THEN SO===120 <XC> 

120 C=i536:POKE 53762,SO:POKE 53767,160: 
TA=1536 <QD> 

127 IF B(BC)<>0 THEN C=53767;POKE 53766, 

B<BC) <0I> 

130 IF T<>0 THEN POKE 53760,1:POKE 53764 
,T+1:TA=53761 <VW> 

140 FOR 1=14 TO 2 STEP -2:PCH<E C, 192+1: P 


OKE TA,160+I=FOKE TA+4,160+1:NEXT , I <IQ> 

150 GOTO 100 <LQ> 

1000 DATA^0,0,0,0,0,0,0,0,0,0,0,0 <BL> 

1010 DATA.-.0,0,0,0,0,0,0,0,0,0,0,0 <B0> 

1100 DATA*162,S1,S1,81,81,81,91,81,81,31 
,81,81 <DR> 

1110 DATA^102,81,81,81,81,81,100,81,31,8 
1,81,81 <Ke> 

1120 DATA*121,81,81,81,81,ei,121,91,136, • 
102,144,108 <CC> 

1130 DATA*162,121,144,108,136,102,144,10 
8,162,121,182,136 <VQ> 

1140 DATA^162,121,144,100,136,102,144,10 
8,162,121,182,136 <VT> 

1150 DATA*204,144,217,162,243,204,243,18 
2,217,162,204,217 <ET> 

1152 DATA*162,121,144,108,136,102,144,10 
8,162,121,182,136 <WE> 

1154 DATA*162,121,144,108,136,102,144,10 
8,162,121,182,136 <WM> 

1160 DATA*108,0,108,108,0,121,0,0,0,0,0, 

0 <WS> 

1170 DATA*136,0,136,136,0,144,0,0,0,0,0, 

0 <EC> 

1180 DATA*i62,0,162,0,162,0,144,0,144,0, 

144,0 <MZ> 

1190 DATA*136,0,136,0,144,0,162,0,L0,0,0, 

0 <FI> 

1200 DATA*I08,0,108,108,0,121,0,0,0,0,0, 

0 <WC> 

1210 DATA*136,0,136,136,0,144,0,0,0,0,0, 

0 <DM> 

1220 DATA*162,0,162,0,0,162,144,0,144,0, 

0,144 <0J> 

1230 DATA*136,0,136,144,0,162,0,0,0,0,0, 

0 <CS> 

1240 DATA*-1 <EU> 

2000 POSITION 0,3;? #6; "*V1ELFN*I>ANK*FUE 
R'S- <AA> 

2010 ? #6:? #6;”*MITMACHEN*UND*VIEL" <CR> 

2020 ? #6:? #6;‘^**ERFOLS*IM*MUSIK“ <IE> 

2030 ? #6:? #6;”***PR0GRAMMI£REN" <HP> 

2040 ? #6:? #6;“******WUENSCHT‘' <WY> 

2050 ? #6:? #6;“********DIR" <DE> 

2060 ? #6;? #6:? #6;"***peter*ger5tner" <CY> 

2070 POSITION 0,21:? #6; **** START*=*END 
E" <AH> 

2080 RETURN <PS> 


Listing 7. »Oxygene^c von Jean-Michel Jarra Bitte mit dem 
Namen »D:SOllND.8« auf Diskette speichern. 


0 REM (c) 1785 by Kemal Ezcan <RY> 

1 REM <Uß> 

2 REM <UR> 

3 REM <US> 

10 eOSUB 30000 <MT> 

15 POKE 53768,1 <PA> 

30 SOUND 0,0,10,1O:SOUND 1,0,10,10:SOUND 

2,0,10,^0-SOUND 3,0,10,10 <OV> 

50 OC+l:lF 08 THEN C=1:READ BD,RD,SD <BG> 

60 ST=ASC(SS(C+SD,C+SD)) < XU> 

70 BT=ASCCBS(C+BD,C+BD>>:SOUND 3,BT,12,8 <JI> 

75 IF PEEK{53279)^6 THEN GRAPHICS 0:END <XH> 

80 RDIS=1:A=A5CCR$<C+RD,C+RD) ) s IF AO0 t 
HEN RT=A:RL=12 <IH> 

90 READ T,E:IF T=-l THEN 200 <QN> 

95 SOUND 0,T,10,12 <SF> 

100 FOR 1=15 TO 4 STEP -1.6:SOUND 1,ST,1 

2,1:SOUND 2,RT,8,RL:RL=RL-0.9^KRL>=0-6)s 
NEXT I <SA> 

101 SOUND 2,0,3,10 <GA> 

105 IF E=0 THEN SOUND 0,0,0,0 <HM> 

110 GOTO 50 <QS> 

200 FOR 1-15 TO 4 STEP -IsSOUND 0,91,10, 
I;SOUND 1,121,10,1:SOUND 2,72,10,I:SOUND 

3,0,0,0:NEXT I <VT> 

202 FOR 1=15 TO 4 STEP -1:SOUND 0,91,10, 

I:SOUND .1,121,10,1:SOUND 2,72,10,I:SOUND 
3,0,0,0:NEXT I <VZ> 

204 FOR 1-15 TO 4 STEP -IsSOUND 0,96,10, 


Listing 8. »Digl LocpOigi Ley« - Top-Musik auf dem Atari 
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I:SOUND 1,121, 10 , 1 =SOUND 2,91,10,I:SOUND 


1380 DATA*56,0,8,22,0,22,0,22,0,22,0,23, 


3,ß,ß,0=NEXT I 

<DC> 

1,23,0,26,1,26,0 

<KJ> 

206 FQR 1=15 TD 0 STEP -0-8:SOUND 8,91,1 


1390 DATA*56,0,16,60,0,60,0,60,0,72,1,72 


0,1:SOUND 1,121,10,1:SOUND 2,72,10,I=SOU 


,0,Bl,0,9l',a,81,l 

<0N> 

ND 3,0,0,0:NEXT 1 

<AM> 

1400 DATA^56,0,24,81,1,81,1,81,1,81,0,68 


210 GRAPHICS 0:END 

<HT> 

,1,68,1,68,1,69,0 

<JC> 

220 STOP 

<E0> 

1410 DATA*56,0,16,60,0,60,0,60,0,72,1,72 


1080 DATA*56,0,56,0,1,0,l,0,i,0,1,0,1,0, 


,0,81,0,91,0,60,1 

<HK> 

1 , 0 , 1 , 0,1 

<FQ> 

1420 DATA^56,0,32,60,1,60,1,60,1,60,1,60 


1010 DATA>..56,0,56,72,0,72,0,81 ,0,72,0,0, 


, 0 ,45, 0 ,47, 0 ,60,1 

<CY> : 

1 , 0 , 1 , 0 , 1 , 0,1 

<WC> 

1430 DATA*56,8,40,60,1,60,1,60,1,60,1,60 


1020 DATA*56,0,56,0,1,0,1,0,1,0,1,0,1,0, 


, 1 ,60,0,72,0,68,0 

<NÜ> 

1 , 0 , 1 , 0,1 

<FW> 

1440 REM REFRAIN 

<YW> 

1030 DATA*0,0,56,72,0,72,0,81,0,72,0,0,1 


1450 DATA-.16,0,16,60,1,60,0,60,0,72,0,53 


, 0 , 1 , 0 , 1 , 0,1 

<YK> 

, 1,53,0,53,0,72,0 

<E0> 

1040 DATA,.0,8,56,0,1,0,1,0,1,0,i,0,l,0,l 


1460 DATA-.-24,0,24,68,0,72,0,68,O,60,l ,60 


, 0 , 1 , 0,1 

<UU> 

,1,60,0,72,0,68,0 

<YD> 

1045 REM VORSPEL 

<PR> 

1470 DATA^0,0,0,60,0,60,0,60,0,60,0,60,0 


1050 DATA*56,0,0,72,0,72,0,72,0,81,1,81, 


,91,1,91,0,53,1 

<WL> 

0,72,1,72,0,60,0 

<HU> 

1480 DATA*32,0,32,53,1,53,1,53,1,53,1,53 


1060 DATA*56,0,0,33,0,33,0,35,8,45,1,45, 


,1,53,1,53,1,53,0 

<MP> 

0,48,1,40,0,0,1 

<BP> 

1490 DATA^S,0,8,53,0,53,0,53,0,53,0,47,1 


1070 DATA^56,0,8,60,0,60,0,60,8,60,1,60, 


,47,0,47,1,47,0 

<DS> 

0,91,1,91,0,45,0 

<BH> 

1500 DATA^0,0,0,45,0,60,1,60,0,60,1,60,1 


1080 DATA^56,0,8,22,0,22,0,22,0,22,0,23, 


,60,1,60,0,72,0 

<NU> 

1,23,0,26,1,26,0 

<KD> 

1510 DATA^48,0,48,68,0,72,0,68,1,68,1,68 


1090 DATA*56,0,16,68,0,60,0,60,0,72,1,72 


,0,53,1,53,0,53,1 

<TW> 

,0,81,0,91,0,81,1 

<DH> 

1515 REM CCTL QJCCTL RXCTL R J <CTL R> 1 


1100 DATA^56,0,24,S1,1,81,1,81,1,81,0,68 


TL R>^CTL R>TCTL R>=tCTL VI 

<XJ> 

, 1 , 68 , 1 , 68 , 1 , 68,0 

<IW> 

1520 DATA-..40,S,40,53, 1 ,53,0,60,1,60,1,60 


1110 DATA*S6,0,16,60,0,60,0,60,0,72,1,72 


,1,60,0,72,0,68,0 

<NB> 

,0,81,0,91,0,60,1 

<HE> 

1530 REM REFRAIN 

<YV> 

1120 DATA^56,0,32,60,1,60,1,60,1,60,1,60 


1540 DATA*.16,0, 16,60,1,60,0,60,0,72,0,53 


,0,45,0,47,0,60,1 

<CS> 

,1,53,0,53,0,72,0 

<EN> 

1130 DATA^56,8,40,60,1 ,60, t-,^0^1,60,1 ,60 


1550 DATA*24,0,24,6S,0,72,ß,6S,0,60,l,60 


,1,60,0,72,0,60,0 

<N 0 > 

,1,60,0,72,0,68,0 

<YC> 

1140 REM REFRAIN 

<YQ> 

1560 DATA-i-0,0,0,60,0,60,0,60,0,60,0,60,0 


1150 DATA^16,0,16,60,1,60,0,60,0,72,0,53 


,91,1,91,0,53,1 

<WK> 

,1,53,0,53,0,72,0 

<EI> 

1570 DATA*32,0,32,53,1,53,1,53,1,53,1,53 


1160 DATA^24,0,24,68,0,72,0,68,0,60,1,60 


,1,53,1,53,1,53,0 

<Ma> 

,1,60,0,72,0,68,0 

<XX> 

1580 DATA^S,0,8,53,0,53,0,53,0,53,0,47,1 


1170 DATA^0,0,0,60,0,60,0,60,0,60,0,60,0 


,47,0,47,1,47,0 

<DR> 

,91,1,91,0,53,1 

<WF> 

1590 DATA^0,0,0,45,0,6O,1,60,0,60,1,60,1 


1180 DATA^32,0,32,53,1,53,1,53,1,53,1,53 


,60,1,60,0,72,0 

<OV> 

,1,53,1,53,1,53,0 

<MJ> 

1600 DATA*4S,0,48,68,0,72,0,68,1,69,1,68 


1190 DATA*S,0,8,53,0,53,0,53,0,53,0,47,1 


,0,53,1,53,0,53,1 

<TV> 

,47,0,47,1,47,0 

<DM> 

1610 REM CCTL Q>CCTL R>CCTL R>CCTL R>2CC 


1200 DATA^0,0,0,45,0,60,1,60,0,60,1,60,1 


TL R>CCTL R^CCTL R> 

<sv> 

,60,1,68,0,72,0 

<N0> 

1620 DATA*40,0,40,53,1,53,0,60,1,60,1,60 


1210 DATA^4a,0,4S,68,0,72,8,68,1,68,1,68 


,0,45,0,47,0,60,1 

<BS> 

, 0 ,53, 1 ,53, 0 ,53 ,1 

<TG> 

1630 DATA*40,0,40,6ß,1,60,1,60,1,60,1,60 


1215 REM ^CTL Q>^CTL R><CTL RJTCTL RI1£C 


,1,60,1,60,1,60,0 

<NP> 

TL R>CCTL Ri^CTL R>:tCTL V> 

<XD> 

1650 DATA^0,0,0,-1,0 

<FB> 

1220 DATA*40,8,40,53,1,53,0,60,1,60,1,60 


30000 REM INIT 

<SG> 

,1,60,0,72,0,68,0 

<MV> 

30010 DIM S^C64),B^(64>16) 

<ZW> 

1230 REM REFRAIN 

<YP> 

30020 R$="<CCTL ,JCCTL F>CCTL ,><CCTL ,> 


1240 DATA^16,0,16,60,1,60,0,60,0,72,0,53 


CCTL F>CCTL ,JCCTL FICCTL FJCCTL Q>CCTL 


,1,53,0,53,0,72,0 

<EH> 

QyWii" 

<W1> 

1250 DATA*24,0,24,68,0,72,0,68,0,60,1,60 


30030 BS="CCTL R:^CCTL R>CCTL CCTL R>CC 


,1,60,0,72,0,68,0 

<X«> 

TL R>CCTL RJCCTL RJCCTL RInnnn????CCTL R 


1260 DATA^0,0,0,60,0,60,0,60,0,60,0,60,0 


>CCTL RICCTL R J CCTL RI0OO0CCTL ,JCCTL ,> 


,91,1,91,0,53,1 

1270 DATA*32,8,32,53,1,53,1,53,1,53,1,53 

<WE> 

CCTL ,>CCTL ,J7227nnnnnnnn777727??CCTL , 


>CCTL ,JCCTL ,TCCTL ,>CCTL ,>CCTL ,>CCTL 


,1,53,1,53,1,53,0 

<MI> 

,>CCTL ,>CCTL N>CCTL NXCTL N:^ CCTL N>CC 


1280 DATA^S,0,8,53, 8 ,53,0,33,0,53,0,47,1 


TL NI CCTL N3-CCTL N J CCTL N>“ 

<VO> 

,47,0,47,1,47,0 

<DL> 

30040 S4i="a0a0a0a0H$H^CCTL BJ7CCTL B>7a0 


1290 DATA^0,0,0,45,0,60,1,60,0,60,1,60,1 


a0s5S=W+W+CCTL BI7CCTL ßT7H^H$H^H^CCTL B 


,60,1,60,0,72,0 

<0P> 

17 CCTL B17CCTL B17CCTL B>?W-^W+W+W+CCTL N 


1300 DATA-48,0,48,68,0,72,0,68,1,68,1,68 


ICCTL N>CCTL NICCTL NJCCTL N>CCTL NlCCTL 


,0,53,1,53,0,53 ,1 

<TP> 

NICCTL N>" 

<KV> 

1310 REM £CTL Q>tCTL R>^CTL RI^CTL RT2CC 


30050 BRAPHICS 3+16=SETCOLOR 4,2,6 

<NY> 

TL R>TCTL R>^CTL R> 

<SP> 

30060 GRAPHICS 18:SETC0LCrR 4,0,0;SETCOLO 


1320 DATA*40,0,40,53,1,53,0,60,1,60,1,60 


R 0,0,15 

<GW> 

,0,45,0,47,0,60,1 

<BM> 

30070 7 #6=7 # 6 ; " -C- S -C- *«»***#*"; 7 # 


1330 DATA*40,0,40,60,1,60,1,60,1,60,1,60 


6 ; #6^:7 #65 "*SDFT 


,1,60,1,60,1,60,0 

<NJ> 

WARE^******^* " 

<LV> 

1340 REM WIEDERHOLUNG 

<U1A> 

30075 7 # 6 ;"*************^****“=7 # 6 ;"*P 


1350 DATA*56,0,0,72,0,72,0,72, 0 , 81 , 1 , 81 , 


RESENT**^*^^* " : 7 #6 ; " ^^^^^^^^^******* " 

<KX> 

8,72,1,72,0,60,0 

<IA> 

30080 POSITION 0,9=7 # 6 ; "DIGI^LOO^/^IBI 


1360 DATA*56,0,0,33,0,33,0,3S,0,45,1,45, 


*LEY !" 

<WY> 

0,40,1,40,0,0,1 

<BV> 

30085 ? # 6 ; "-^(O^BY^ICEMAL^EZCAN" 

<ET> 

1370 DATA*S6,0,0,60,0,60,0,60,0,60,1,60, 


30090 C=8: RETURN 

<VQ> 

0,91,1,91,0,45,0 

<BN> 

Listing 8. »Digi Loo-Digi Ley« (Schluß) 
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Aktion 

mit 

Action 

Action zählt zu den schnellsten 
Programmiersprachen für Atari- 
Computer. Wer auf hohe Ge¬ 
schwindigkeiten Wert legt, aber 
nicht in Maschinensprache pro¬ 
grammieren will, sollte Action in 
Erwägung ziehen. 

J r n letzter Zeit machte eine Program¬ 
miersprache von sich reden, die 
ursprünglich als Sprache f ür System¬ 
entwickler konzipiert war: »C«. Sie 
wurde Anfang der siebziger Jahre von 
Dennis Ritchie aus BCPL weiterent¬ 
wickelt. Als Standardwerk zur Program¬ 
mierung in »C« wird daher auch oft das 
Buch von Kernighan/Ritchie (»The C 
Programming Language«) genannt. Rit¬ 
chie war später auch an der Entstehung 
von UNIX beteiligt 
Es gab bereits mehrere Versuche, die 
Sprache C auf den Atari anzupassen: 
Das »Deep Blue G«-System ist weitge¬ 
hend an einen klassischen C-Compiler 
angelehnt Allerdings sind hier nicht nur 
beim Befehlsumfang, sondern auch bei 
der Arbeitsgeschwindigkeit Abstriche 
zu machen. Ein anderer Weg wurde mit 
C/65 begangen. Bei diesem System 
wird der Quelftext in einen Assembier- 
text compiliert, der dann mit MAC/65 
{siehe Beitrag in diesem Sonderheft) 
weiter bearbeitet werden muß. 

Unser Thema ist aber die Program¬ 
miersprache »Action«, die von OSS 
stammt Diese Sprache enthält zwar 
viele Elemente von C, ist aber dennoch 
»anders« genug, um einen eigenen 
Namen verdient zu haben. 

Action wird (womit wir schon beim 
ersten Unterschied zu konventionellen 
C-Comptlern sind) auf einem Programm¬ 
modul geliefert. Wie bei allen anderen 
Cartridges von OSS handelt es sich 
dabei um ein 16 KByte-Super-Cart- 
ridga Es belegt aber trotzdem nur 8 
KByte-RAM-Speicher. Bei Verwen¬ 
dung von DOS XL kann der freie Spei¬ 
cherplatz sogar noch weiter erhöht 
werden. Der nächste Vorteil ist (genau 
wie bei MAC/65), daß sich Editor und 
Compiler gleichzeitig im Speicher 
befinden. Von der Konzeption des 
Systems her läßt sich Action also mit 


Turbo-Pascal vergleichen, bei dem 
ebenfalls Editor, Compiler und Quell¬ 
text gleichzeitig im Speicher vorliegen. 
Ein separater Linker ist nicht nötig. 

Da Action, genau wie C, nicht mit Zei¬ 
lennummern arbeitet hat man dem 
Action-System einen stark an Textpro- 
gramme angeiehnten Editor eingebaut 

Grundsätzlich stehen alle normalen 
Fähigkeiten des Bildschirmeditors zur 
Verfügung. Allerdings kann jede Zeile 
maximal 240 Zeichen lang sein, so daß 
man bei Schleifen und Kommentaren 
genügend Platz zum Einrücken hat. Da 
die Darstellung auf dem Bildschirm auf 
nur 40 Zeichen pro Zeile begrenzt ist 
(Bild 1), ist natürlich immer nur ein Teil 
des üstings zu sehen. Bei den Zeilen, 
die über den Rand des Bildschirms hin¬ 
ausreichen, ist jeweils das letzte Zei¬ 
chen invertiert Bewegt man nun den 
Cursor über den rechten Rand des Bild¬ 
schirms, wird die Zeile, in der man sich 
befindet nach links gescrollt (Bild 2). 
Weitere Fähigkeiten des Editors sind 
Funktionen zum Suchen und Ersetzen 
von Begriffen, der Einsatz eines zwei¬ 
ten Bildschirmfensters, in dem man 
eine andere Datei bearbeiten kann, und 
ähnliches mehr. 

Das Fehlen von Zeilennummern beim 
Programmieren erschwert es oft, 
bestimmte Programmteile wiederzufin¬ 
den: Der Action-Editor erlaubt aber, an 
beliebigen Stellen Markierungen (Tags) 
zu setzen, die man dann später mit nur 
zwei Tasten wieder anwählen kann. 

Sämtliche Parameter wie Zeilenlänge 
und Fenstergröße etc. sind veränder¬ 
bar. 

Den Mittelpunkt des Action-Systems 
bildet der Monitor, von dem aus man 
Editor, Compiler und DOS auf rufen 
kann. Außerdem können einzelne Spei¬ 
cherzellen verändert und ganze Spei¬ 
cherbereiche gelistet werden. Wichtig 
beim Testen eines Programms ist der 
TRACE-Modus. Während des Pro¬ 
grammablaufs erlaubt er die Ausgabe 
von Namen und Parametern jeder auf¬ 
gerufenen Prozedur auf dem Bild¬ 
schirm. 

Die Programmiersprache Action ist 
weitgehend an C angelehnt So haben 
beide grundsätzlich ähnliche Daten¬ 
typen und eine ähnliche Syntax, 

Dazwischen den einzelnen Befehlen 
nur Leerzeichen stehen brauchen, ist 
man in der Aufteilung des Queiltextes 
völlig frei. 

Natürlich ist es empfehlenswert, bei- 
Verschachtelungen, wie bei anderen 
Programmiersprachen auch, dazwi¬ 
schenliegende Zeilen einzurücken. So 
werden Programme übersichtlich und 
überschaubar. 

An Datentypen sind in Action 
zunächst einmal BYTE und CHAR (ein¬ 
zelne Byte), INT (2-ßyte-lnteger 


zwischen -32768 und 32767) und 
CARD (desgleichen zwischen 0 und 
65535) vertreten. Bei der Deklaration 
von Variablen kann man (muß aber 
nicht) angeben, welche Speicherstelle 
dazu benutzt werden soll. Beispiel: 
»BYTE chbase=^$02F4« 

Mit dieser Zeile würde- man eine 
1-Byte-Variable erzeugen, die genau 
auf der Adresse $02F4 liegt Bei einer 
Wertzuweisung zu chbase wird die 
Adresse $02 F4 geändert. Das Kom¬ 
mando »chbase=$CC« schaltet also 
den internationalen Zeichensatz ein. 
$02 F4 fungiert nämlich als Basisregi¬ 
ster für den Zeichensatz und $CC als 
High-Byte der Anfangsadresse des Zei¬ 
chensatzes. Wo Basic umständliche 
POKE-Befehle erfordert, kann man hier 
sehr viel eleganter programmieren. 
Gleiches gilt natürlich für die anderen 
Datentypen. 

Neben den fundamentalen Daten¬ 
typen gibt es in Action auch erweiterte 
Arten von Variablentypen. Fangen wir 
mit dem Typ POINTER (Zeiger) an. 
Davon abgesehen, daß die Deklaration 
ein wenig anders abläuft (»CHAR POIN¬ 
TER pnt« statt »CHAR *pnt«), ist die 
Anwendung der Pointer in Action 
genauso wie in C gelöst Mit 
»pnt=@var« erhält man die Adresse 
einer Variablen (in C:»pnt=&var«}, mit 
»pnt"« erhält man die Adresse, auf die 
pnt zeigt (in C müßte der Befehl dann 
»*pnt« iauten). 

Ein weiterer wichtiger Datentyp ist 
das Feld (Array). im Gegensatz zu C 
verwendet man in Action allerdings nur 
eindimensionale Arrays. Sie werden 
außerdem nur aus den fundamentalen 
Datentypen, also CHAR, BYTE, INT und 
CARD, aufgebaut Allerdings kann man 
mit einem Trick auch Arrays aus den 
erweiterten Datentypen verwenden. 

In Action lassen sich auch eigene 
Datentypen definieren; sie heißen 
Recorda Man benutzt dazu die Anwei¬ 
sung TYPE, während es in C STRUCT 
heißt. Der Vorteil der Records liegt 
darin, verschiedene Datentypen unter 
einem gemeinsamen Oberbegriff zu¬ 
sammenfassen zu können. 

Wie schon bei der Erörterung der fun¬ 
damentalen Datentypen zu sehen war, 
erlaubt Action eine sehr maschinen¬ 
nahe Programmierung. Alle numeri¬ 
schen Konstanten können auch in 
hexadezimaler Schreibweise eingege¬ 
ben werden, und auch sämtliche Funk¬ 
tionen zur Manipulation einzelner Bits 
sind verfügbar: »&« (logisches AND), 
»%« (OR), (XOR), LSH (feft shift) 
und RSH (right shift). Leider fehlt eine 
angenehme Eigenschaft von C. Es ist 
nicht möglich, Variablen an beliebigen 
Stellen im Programmtext durch zwei 
kurze Zeichen zu in- oder dekrementie- 
ren. 











Immerhin kann man bei Veränderun¬ 
gen einer Variablen den Namen auf der 
rechten Seite des Gleichheitszeichens 
weglassen, vorausgesetzt man 
schreibt stattdessen zwei Gleichheits¬ 
zeichen (Beispiel: 3^Zaehler= = + 1« 
erhöht die Variable Zaehler um eins). 

Ein wichtiger Gesichtspunkt bei der 
Beurteilung einer Sprache sind die ver¬ 
fügbaren Strukturen für Schleifen und 
Verzweigungen. Action ähnelt in dieser 
Hinsicht weniger Q sondern eher Basic 
oder Pascal. Für Verzweigungen dient 
natürlich das Kommando IR Hierbei ist 
die Anzahl der Befehle, die TH EN folgen 
dürfen, völlig offen. Am Ende des durch 
TH EN eingeleiteten Blocks muß aller¬ 
dings ein Fl stehen. ELSE ermöglicht es 
dann, den entgegengesetzten Fall abzu¬ 
fangen. Die Worte DO und OD beginnen 
beziehungsweise beenden einen 
Schleifenblock. Diese beiden Aus¬ 
drücke ersetzen die geschweiften 
Klammern, die üblicherweise zwischen 
einfachen Anführungszeichen einge¬ 
bunden sind. Dabei kann man ohne 
Bedingungen arbeiten und erhält dann 
eine unendliche Schleife - oder aber 
WHILE, FOR oder UNTIL benutzen, um 
eine Bedingung für die Schleife festzu¬ 
legen. Einen vorzeitigen Abbruch von 
Schleifen bewirkt der Befehl EXIT. 

Was eine strukturierte Programmier¬ 
sprache sein will, muß natürlich über 
Prozeduren, Funktionen und lokale 
Variablen verfügen. Während sich Pro¬ 
zeduren und Funktionen in C nur darin 
unterscheiden, daß Funktionswerte 
zurückgegeben werden (oder nicht), 
werden sie in Action bereits bei der 
Deklaration unterschieden. 

Bei Prozeduren geht das folgender¬ 
maßen vor sich: Zunächst wird mit 
PROC angezeigt, daß eine Prozedurde¬ 
klaration stattfindet. Es folgen der 
Name der Prozedur und {in Klammern} 
Datentypen und Namen der übergebe¬ 
nen Parameter. Damit sind die überge¬ 


benen Parameter automatisch als lokale 
Variablen für diese Prozedur definiert. 

Beendet wird der Vorgang mit dem 
Kommando RETURN. Prozeduren wer¬ 
den wie Kommandos aufgerufen {Bei¬ 
spiel: :^Wait (30)«). 

Funktionen unterscheiden sich von 
Prozeduren darin, daß sie einen Funk¬ 
tionswert an das aufrufende Programm 
zurückliefem können. Ein Aufruf einer 
Funktion sieht deshalb auch ein wenig 
anders aus. Beispiel: »X=STICK (0)«. 
Bei Funktionsdeklarationen muß 
zunächst der Typ des ermittelten 
Endresultats angegeben werden. Es 
folgt dann das Kommando FUNQ der 
Name der Funktion und die Liste der 
übertragenen Parameter (genau wie bei 
Prozeduren). Der einzige weitere 
Unterschied ist, daß zum Schluß dem 
Befehl RETURN noch ein Parameter 
übergeben wird, der dann als Funk¬ 
tionswert gilt. 

Genau wie bei einem C-System wer¬ 
den auch zum Action-Compiler die 
wichtigsten Ein- und Ausgabefunktio¬ 
nen in Form einer Unterprogramm¬ 
bibliothek mitgeliefert. Der große Unter¬ 
schied ist allerdings, daß diese Routi¬ 
nen nicht, wie sonst üblich, auf Diskette 
beiliegen und dann in das compiiierte 
Programm eingebunden werden, son¬ 
dern im ROM des Action-Cartridges lie¬ 
gen. Dies hat zur Folge, daß compiiierte 
Programme, wenn sie auf vordefinierte 
Funktionen oder Prozeduren zurück¬ 
greifen, nur mit eingestecktem Car¬ 
tridge laufen. 

Weiterhin gibt es, passend zum 
Action-Modul, eine Unterprogramm- 
bibliothek. Darin enthalten sind 
zunächst Befehle zur Ausgabe sämtli¬ 
cher Datentypen (inklusive vor PrintF). 
Daneben findet man, auch jeweils für 
alle Datentypen, den INPUT-Befehi. 
Ebenso sind alle anderen normalen Eir¬ 
und Ausgabefunktionen, wieGET, PUT, 
OPEN, CLOSE, XfO, NOTE und POINT, 


bereits als Prozedur definiert. Leider 
sucht man die recht wichtigen Befehle 
BGET und BPUT vergeblich. Grafik- 
und Soundbefehie, die zum größten Teil 
ihren Basic-Vorbildern entsprechen, 
fehlen aber nicht. 

Da Action nicht ohne weiteres in der 
L^ge ist, Zeichenketten zu verarbeiten, 
sind auch hierfür einige nützliche Pro¬ 
zeduren vordefiniert. 

Wie wir bisher gesehen haben, hat 
Action zwar viele Eigenschaften von C, 
eine vollständige Implementation liegt 
aber beileibe nicht vor. Andererseits 
wartet Action mit Erweiterungen auf, die 
besonders auf dem Atari von sehr gro¬ 
ßem Nutzen sind. Dazu zählt zum Bei¬ 
spiel auch die Festlegung der Adresse 
einer Variablen. 

Wer zeitkritische Programmteile doch 
lieber in Maschinensprache schreiben 
will, dem stehen zweierlei Wege offen. 
Für kurze, verschiebbare Programm¬ 
teile empfiehlt es sich, den Maschinen¬ 
code direkt als Datenblock in den Quell¬ 
text einzubinden. Längere Programme 
kann man ab einer festen Adresse 
assemblieren und die zugehörige Pro¬ 
zedur im Quelltext einzig und allein 
durch Festlegung ihrer Anfangs¬ 
adresse definieren. 

Für den professionellen Programmie¬ 
rer ist es wichtig zu wissen, daß er die 
volle Kontrolle darüber hat, wie der 
Compiler den Speicherplatz aufteilt. So 
läßt sich dann der erzeugte Code in ein 
EPROM brennen. 

Weiterhin ist für den ernsthaften Ein¬ 
satz wichtig, die Verwendung der im 
ROM integrierten Unterroutinen unter¬ 
binden zu können. Man definiert ein¬ 
fach die Routinen selbst neu. Einfacher 
ist es allerdings, auf die Action- 
Runtime-übrary zuröckzugreifen. Der 
Anwender bekommt eine Reihe vordefi¬ 
nierter Dateien, die mit dem INCLUDE- 
Befehl in die selbstverfaßten Pro¬ 
gramme eingebunden werden. 


; Eraseö Ci2:7-xJL+y0, iZZ+yiS 


; Eraseö ej.27-xX+yO, 

rx 


FI 

FI 


FI 

RETURN 


RETURN 

PROC Gc-TPardmCSTRXNG paraH, C^ßl> ARRftY £3 


GSTRIMG paran, CARO ARRAY cur, initial} 

CARO r-e^ultC 


CARO resuitc 

STRING nuMBuF ce3 


STRING nunBufCe>=SSSO 

Pr ifi-t CparaMJ 

Printe- = "J 


Print Cparam} 

Print C" = 

Pr i ntC Cc ur-^l 


Pr intCCcur^l 

IF initial TriEN 


XF initial THEN 

Printe—, initial = —> 


Printe"'* initial =: 

PrintCE Cinitial^} 


PrintCe Cinitial^} 

FESE 


ELSF 

PutE es 


PutE CI 

FX 


FI 

Printe—Enter net# value: 


Printe—Enter new value: 

resuitc = xnputcci 


res^ultC = inputcei 

XF nunBu# ceitie thfn 


ZF nuwufeeine theh 





Bild 1. Eine Zeile kann bis zu 240 Zeichen lang sein. Da sich 
nur 40 Zeichen auf dem Bildschirm darstellen lassen, wird 
die Zeile^ in der steh der Cursor befindet, gegebenenfalls 
nach links oder rechts gescroJIt. 


Bild 2. Die mit dem Cursor gekennzeichnete Zeile ist bereits 
nach links gescrolft. Alle anderen Zeilen befinden sich an der 
ursprünglichen Position. So bleibt der zu bearbeitende Text 
übersichtlich. 
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Unter dem Strich gesehen handelt es 
sich bei Action (etwa 250 Mark) um eine 
professionelle Programmiersprache mit 
Arbeitsgeschwindigkeiten, die auf dem 
Atari bisher für eine höhere Program¬ 
miersprache als unerreichbar galten: 
Ein Benchmarkprogramm zur Berech¬ 
nung der ersten 1000 Primzahlen war in 
Action nur 40 Prozent langsamer als die 
in Maschinensprache geschriebene 
Version. 

Ein Grund für diese enorme 
Geschwindigkeit ist darin zu suchen, 


daß der Compiler intern völlig anders 
vorgeht als ein normaler C-Compiler. 
Durch diese vereinfachte maschinen- 
sprachnähere Arbeitsweise ist leider 
auch die Fähigkeit veriorengegangen, 
rekursiv zu arbeiten. 

Als weiteren Zusatz zu Actton 
bekommt man für etwa 100 Mark die 
»Programmer's Ajd«-Disketta Auf die¬ 
ser Diskette findet man dann schmerz¬ 
lich vermißte Befehle wie CIRCLE, 
Kommandos für Player/Missile-Grafik 
oder Fließkommaverarbeitung sowie 


einige Demoprogramme. 

Action hat also für jeden etwas zu bie¬ 
ten: Dem Umsteigervon Basic wird eine 
schnelle, komfortable Sprache gebo¬ 
ten, die auch dem Profi-Programmierer 
noch voll ausreicht. Und wer später 
plant, auf einem »großen« Computer in 
C weiterzumachen, kann sich bereits 
mit seinem Atari einarbeiten. 

(Julian F. Reschke/wb) 

Bezugsquellen: 

CompyShop, GneisenaLrslr. 29, 4330 Mühlheim/Ruhr, 
m (020Ö) 497169 

Münzenloher, T&Jzqr Str. 4, 6150 Holzkirchen. 

Tel. (08024) 1814 


Das TextverarbeitungsSextett 


Sechs verschiedene Textverar¬ 
beitungen auf dem Prüfstand. 
Welche ist die beste? 

0 en Heimcomputer als Schreib¬ 
maschine zu nutzen ist wohl 
eine der häufigsten ernsthaften 
Anwendungen im Heimbereich. Insge¬ 
samt sechs verschiedene Textverarbei¬ 
tungen sollen deshalb verglichen wer¬ 
den, damit Sie beim Kauf die richtige 
Wahl treffen. 

Eine der ältesten Textverarbeitungen 
für den Atari ist wohl der »Atari- 
Schreiber«. Er ist auf Modul und neuer¬ 
dings auch auf Diskette lieferbar. Der 
»Atari-Schreiber« ist die deutsche Ver¬ 
sion des amerikanischen »Atari-Wri- 
ters« und deshalb auch auf deutsche 
Verhältnisse ^gestimmt. Sowohl das 
Handbuch wie auch die Benutzerfüh¬ 
rung im Programm sind in deutscher 
Sprache abgefaßt. Ebenso ist der Zei¬ 
chensatz und sogar die Tastaturbele¬ 
gung der deutschen Norm angepaßt. 
Wer sonst viel mit der Schreibmaschine 
umgeht, wird darüber erfreut sein. Alte 
Hacker auf dem Atari können sich aller¬ 
dings anfangs wahrscheinlich vor Tipp¬ 
fehlern nicht mehr retten. Deshalb lie¬ 
gen dem Programm auch Aufkleber für 
die Tastatur bei, die die umbelegten 
Tasten entsprechend kennzeichnen. 

Die Bedienungsanleitung zum »Atari- 
Schreiber« besteht aus drei Teilen. Das 
eigentliche Handbuch beinhaltet eine 
ausführliche Beschreibung des Pro¬ 
gramms und gibt Tips zum Umgang mit 
dem System. Zudem liegt eine Refe¬ 
renzkarte bei, in der alle Befehle von 
»Atari-Schreiber« kurz, aber informativ 
aufgeführt sind. Zum schnellen Nach¬ 
schlagen von bestimmten Befehlen 
benutzt man am besten die Referenz¬ 
karte, die sich als nützliches Hilfsmittel 
beim Umgang mit der Textverarbeitung 
erweist. 


Oer »Atari-Schreiber« wird von einem 
Hauptmenü aus gesteuert, das die 
wesentlichen Funktionen zur Bearbei¬ 
tung eines Textes enthält {Bild 1). Die¬ 
ses Menü erscheint sofort nach dem 
Laden des Programms und erleichtert 
so den ersten Einstieg in die Textverar¬ 
beitung. Auch ohne lange im Handbuch 
nachschlagen zu müssen, kann man 
gleich mit der Eingabe des ersten Tex¬ 
tes beginnen. Man betätigt einfach die 
Taste »N« und gelangt in den Schreib- 
Modus. Am oberen Bildschirmrand ist 
nun eine Zeile zu sehen, welche die 
grundlegenden Druckparameter, wie 
linke und rechte Randbegrenzung, 
oder den Zeilenabstand enthält. Am 
unteren Bildrand befindet sich die 
Anzeige über den aktuellen Cursor¬ 
stand. Leider beziehen sich diese 
Angaben nur auf die Bildschirmposition 
und nicht auf die tatsächliche Position 
des laufenden Textes. So ist eigentlich 
nur die Sp^tenangabe von Nutzen. 
Insgesamt lassen sich 21 Zeilen von je 
35 Zeichen auf einmal auf dem Bild¬ 
schirm darstellen. Ein horizontales 
Scrollen über die 35. Spalte hinaus fin¬ 
det nicht statt. Die Darstellung von 
Tabellen kann daher zum Problem wer¬ 
den. Die Formatierung eines Textes auf 
dem Bildschirm ist nicht identisch mit 
dem späteren Ausdruck. Der Text wird 
nur dem Bildschirmformat angepaßt; 
von den Einstellungen, die Ränder, 
Btocksatz und ähnliches betreffen, muß 
man sich leider erst auf dem Papier 
überraschen lassen. 

Die Druckeranpassung ist für die 
Atari-Drucker 1020, 1025 und 1027 
sowie für den Epson FX-80 über ein 
kleines Untermenü vorzunehmen. 
Andere Drucker werden vom Atari- 
Schreiber nicht unterstützt, so daß man 
in diesem Fall entweder für entspre¬ 
chende Steuerzeichen im Text sorgen 
muß oder sich selbst ein passendes 
Drucksteuerprogramm schreibt. 


Beim »Atari-Schreiber« ist die Aus¬ 
gabe von Serienbriefen vorgesehen. 
Daher kann man einen Text auch mit 
Variablen versehen. Braucht bei¬ 
spielsweise ein Rundschreiben mit 
gleichlautendem Text, aber persönli¬ 
cher Anrede, so wird die Anrede durch 
eine Variable ersetzt. Beim Ausdruck 
des Rundschreibens schließlich steht 
anstatt der Variablen der eigentliche 
Text. Dieser wird einfach einer Datei von 
der Diskette entnommen, die die erfor¬ 
derlichen Daten enthält. 


Stern oder Sternschnuppe? 


Wer größeren Wert auf komfortable 
Benutzerführung legt, ist mit dem »Star- 
Texter« gut beraten. Allerdings meldet 
sich »StarTexter« mit lautem Getöse und 
grafischen Spielereien. So würde man 
eher ein neues Spiet an Stelle eines 
Textprogramms vermuten. Doch der 
erste Schein trügt. Wie schon der 
»Atari-Schreiber« ist auch dieses Pro¬ 
gramm auf den deutschen Benutzer 
zugeschnitten. Man verfügt also über 
einen deutschen Zeichensatz, kann 
aber auch beliebige andere Zeichen¬ 
sätze nachtaden. Auf der Diskette ist 
deshalb ein spezielles Programm mit 
dem Namen »StarFont« enthalten. Damit 
kann man sich seine eigenen Zeichen 
definieren. Auf diese Art lassen sich 
natürlich auch spezielle grafische Sym¬ 
bole in einen Text aufnehmen, denn alle 
Sonderzeichen werden nicht nur auf 
dem Bildschirm dargestellt, sondern 
auch in dieser Form auf dem Drucker 
ausgegeben. Die Tastaturbelegung 
kann man sich aussuchen. Entweder 
arbeitet man mit der regulären Bele¬ 
gung der Tasten, oder man wandelt die 
Tastatur des Atari in eine deutsche 
Schreibmaschinentastatur nach DIN 
um, je nach eigenen Bedürfnissen und 
Gewohnheiten. 






















Nach dem Laden des Programms 
befindet man sich zuerst im normalen 
Textmodus. Die Darstellung des Textes 
erfolgt in 21 Zeilen mit je 40 Zeichen 
(Bild 2). Durch horizontales Scrollen 
können, je nach vorhergehender Rand¬ 
einstellung, allerdings bis zu 80 Zei¬ 
chen nebeneinander dargestellt wer¬ 
den. Die Spalte und Zeile, in der man 
sich befindet, entnimmt man der 
Anzeige am unteren Bildrand. Anders 
als beim »Atari-Schreiber« wird hier die 
tatsächliche Position im Text und nicht 
die Bildschirmposition angezeigt. 

Drückt man die ESC-Taste, gelangt 
man in den sogenannten Control- 
Modus. Mit den Sondertasten START, 
OPTION und SELECT kann man eines 
der drei Menüs von »Sta^exter« aufru- 
fen. Das erste dieser Menüs be¬ 
zieht sich rein auf Diskettenoperationen 
{Bild 3). Hier kann man beispielsweise 
Texte laden und speichern oder sich 
das Inhaltsverzeichnis einer Diskette 
ansehen. Daneben lassen sich auch 
eine Reihe von verschiedenen DOS- 
Operationen durchführen, wie das 
Löschen und Umbenennen von Files. 
Von hier aus lädt man auch andere Zei¬ 
chensätze oder speichert die momen¬ 
tane Parametereinstellung auf Diskette. 

Das zweite Menü ist so umfangreich, 
daß es gleich drei Bildschirmseiten in 
Anspruch nimmt. Hier werden alle 
Grundeinstetlungen für die Textdarstel¬ 
lung vorgenommen, wie die Zeilen¬ 
länge oderder Blocksatz. Aberauchdie 
farbliche Darstellung auf dem Bild¬ 
schirm kann an die persönlichen 
Bedürfnisse angepaßt werden. 

Das dritte Menü schließlich ist für den 
Ausdruck und das Formatieren von Tex¬ 
ten zuständig. Die Anpassung an einen 
bestimmten Drucker erfolgt aber nicht 
hier, sondern bereits in einem eigen¬ 
ständigen Installationsprogramm. In 
diesem Basic-Programm, das unter 
dem Namen »INSTALL« auf Diskette 
abgelegt ist, wählt man entweder gän¬ 
gige Druckertypen direkt an, oder man 
definiert sich seine eigene Anpassung 
an den speziellen Drucker. Erwähnens¬ 
wert ist hierbei, daß man nicht unbe¬ 
dingt über ein Centronics-Interface ver¬ 
fügen muß, um Texte an den Drucker zu 
schicken. Mit einem einfachen Kabel, 
dessen Herstellung im Handbuch 
beschrieben ist, kann man seinen 
Drucker auch an die Joystickports des 
Atari-Computers anschließen. Einzige 
Einschränkung des Druckbetriebes ist 
dabei Jedoch, daß nicht alle Grafikzei¬ 
chen des erweiterten Zeichensatzes 
ausgedruckt werden. Dies stört bei nor¬ 
maler Textverarbeitung aber kaum. Vor 
dem Drucken kann man sich den Text 
auch in 80-Zeichen-Darstellung be¬ 
trachten, also in der Form, wie er später 
tatsächlich auf dem Papier erscheint. 


Diese Darstellung ist zwar aufgrund der 
mangelnden Auflösung des Atari nur 
schwer lesbar und nicht zum Editieren 
geeignet, vermittelt aber einen guten 
ophschen Überblick über den fertigen 
Text. 

Das Formatieren von Texten direkt auf 
dem Bildschirm ist mit »StarTexter« auch 
möglich. Jedoch ist dies bei umfangrei¬ 
cheren Texten eine sehr zeitraubende 
Angelegenheit. Hinzu kommt, daß auf¬ 
grund der Textformatierung recht ver¬ 
schwenderisch mit dem Speicherplatz, 
sowohl auf Diskette als auch im RAM- 
Speicher, umgegangen wird. Ein Bei¬ 
spiel: Begrenzt man den rechten Rand 
eines Textes auf Spalte 40, so wird 
trotzdem jede Zeile mit einer Länge von 
80 Zeichen auf Diskette abgelegt. 40 
Leerzeichen pro Zeile werden also um¬ 
sonst gespeichert. Man benötigt folg¬ 
lich doppelt soviel Speicherplatz als 
eigentlich notwendig. Abhilfe schafft 
hier nur das ständige Umformatieren 
vor dem Speichern und nach dem La¬ 
den eines Textes, das aber, wie bereits 
erwähnt, recht lange dauert. Auch der 
Textspeicher leidet unter dieser Art der 
Darstellung. Maximal kann er 20000 
Zeichen aufnehmen. Die Anzahl der 
Zeilen, die ein Text umfassen darf, ist 
jedoch auf 250 beschränkt. Schreibt 
man seinen Text mit einer Breite von 80 
Spalten, so verfügt man auch tatsäch¬ 
lich über 80 mal 250 oder 20000 Zei¬ 
chen Speicherplatz. Bei einer Randein¬ 
stellung bis zur Spalte 40 beispiels¬ 
weise kann man nur mehr 40 m^ 80, 
eJso 10000 Zeichen im Textspeicher 
unterbringen. Ideal scheint diese 
Lösung also nicht zu sein. 


Textprogramm aus dem 
Alpenland 


Das nächste Textverarbeitungspro¬ 
gramm für den Atari nennt sich »Au- 
stro.Text«. Wie der Name schon vermu¬ 
ten läßt, stammt dieses Programm aus 
Österreich. Auch hier verfügt man 
neben einer deutschsprachigen Anlei¬ 
tung über einen deutschen Zeichen¬ 
satz. Auf eine Umbelegung der Tastatur 
wurde jedoch bewußt verzichtet, um, 
laut Handbuch, Umgewöhnungsproble¬ 
me zu vermeiden. Ein Menü sucht man 
bei diesem Programm vergeblich. Alle 
Befehle zum Bearbeiten eines Textes 
muß man leider im Kopf haben bezie¬ 
hungsweise im Handbuch nachlesen. 
Bei der Befehlsausführung erscheint 
lediglich eine Art Statuszeile, in der man 
die Eingaben einträgt. So ist es gerade 
in der Einarbeitungsphase doch recht 
mühsam, mit den vielen verschiedenen 
Befehlen von »Austro.Text« zurechtzu¬ 
kommen. In der Praxis sieht das so aus: 


Will man beispielsweise den linken 
Rand des Textes beim Ausdruck auf 
Spalte 10 setzen, so fügt man das Kom¬ 
mando ».LM 10« in den Text ein. Ent¬ 
sprechend würde eine Begrenzung 
des rechten Randes auf Spalte 50 dann 
».RM 50« lauten. Wie man sieht, sind 
diese Abkürzungen dem Englischen 
entlehnt (LM = Lefl Margin oder linker 
Rand), die sich - mit entsprechenden 
Englischkenntnissen - gut einprägen. 

Bei diesem Programm wird ebenfalls 
kein separates Centronics-Interface 
zur Druckerausgabe benötigt. Mit 
einem speziellen Kabel, das man aber, 
anders als bei »StarTexter«, fertig kaufen 
muß, kann man einen Drucker mit Cen- 
tronics-Schnittstelle auch über die Joy¬ 
stickports ansteuern. Zum Drucken ei¬ 
nes Textes betätigt man gleichzeitig die 
START- und die P-Tasta Nun gibt man 
den Handlernamen (Gerätebezeich¬ 
nung} ein, auf dem der Druck erfolgen 
soll. Der Händler »P:« spricht also die 
normale Centronics-Schnittstelle an, 
während »J:« den Ausdruck über die 
Joystickports veranlaßt. Auf diese 
Weise kann man einen Text bei entspre¬ 
chender Wahl des Händlers natürlich 
auch als UST-File auf Diskette oder 
Kassette ablegen und dann weiterver¬ 
arbeiten. Spricht man den Händler »T« 
an, so erscheint der Text auf dem Bild¬ 
schirm im 80-Zeichen-Fbrmat. Die Dar¬ 
stellung entspricht dann genau dem 
Format, in dem der Text auf dem Druk- 
ker ausgegeben wird. Um Texte in die¬ 
sem Modus darstellen zu können, muß 
man jedoch über mindestens 5500 
Byte freien Speicherplatz verfügen. 
Wie auch in der normalen Textdarstel¬ 
lung (Bild 4) kann man übrigens hier den 
Feinscroll-Modus wählen, in dem der 
Text fließend über den Bildschirm rollt. 

Zur Anpassung an die verschiedenen 
Druckertypen benutzt man auch hier 
ein eigenes Programm namens »Printer 
Editor«. Dieses Programm wird aller¬ 
dings bereits beim Booten von »Au- 
stroText« in den Speicher geladen und 
belegt dann rund 7500 Byte Textspei¬ 
cher. Das bedeutet, daß man noch 
7500 Byte freien Speicher benötigt, 
um noch Änderungen zur Druckeran¬ 
passung vornehmen zu können. An¬ 
sonsten bleibt nur, den momentanen 
Text zu speichern und die Diskette neu 
zu booten. 


A ohne Ä 


»A-Text« ist als TextverarbeitungsprO“ 
gramm für den Atari auch schon etwas 
länger auf dem Markt. Erfreulich ist die 
Tatsache, daß sich inzwischen das frü¬ 
her kritisierte Handbuch verbessert 
hat. Es erscheint nach wie vor in 
Deutsch, ist aber wesentlich Übersicht- 
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Bild 1. Das Hauptmenü vom »Atari-Schreiber« umfa&t alle 
wichtigen Funktionen. 
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Bild 2. Von diesem Menü aus lassen sich beim »Starlexter« 
sämtliche Diskettenoperationen ausführen. 
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Bild 3. Die Textdarstellung von »StarTexter« mit geändertem Bild 4. »AustroJext« im Schreibmodus. Alle Leerzeichen und 

Zeichensatz. Texte lassen sich, selbst mit anderem Zeichen- Leerzeilen werden mit Hilfe einer Schraffur optisch deutlich 

Satz, auf einem Drucker ausgeben. hervorgehoben. 


lieber geworden. Auf die Darstellung 
der deutschen Umlaute und Sonderzei¬ 
chen auf dem Bildschirm muß man als 
»A-Text«-Benutzer jedoch verzichten. 
Statt dessen fügt man spezielle Grafik¬ 
zeichen in den Text ein, die später bei 
der Druckerausgabe als Umlaute wie¬ 
dergegeben werden. 

Wie schon bei »Austro.Text« vermißt 
man bei diesem Programm die Menü- 
Steuerung. Die Kommandos müssen 
also auch hier im Kopf parat sein und 
dann in eine eigene Statuszeile einge¬ 
geben werden. Daß dies aber etwas 
langwierig werden kann, soll folgendes 
Beispiel aus dem Handbuch zeigen; 
Will man einen Text beispielsweise un¬ 
terstreichen, so muß man folgende 
Sequenz eingeben: 

»CTRL-L U CTRL-R CTRL-A CTRL-R 
ESC I RETURN« 

Ähnlich sieht der Befehl zum Been¬ 
den des Unterstreichens aua Beim 
»StarTexter« muß man vergleichsweise 
nur ein inverses A mit nachfolgender 
Null im Text einfügen, um denselben 
Effekt zu erzielen. Wie man sieht, ist die 


Handhabung von »A-Text« etwas 
gewöhnungsbedürftig. 

Die Textdarstellung auf dem Bild¬ 
schirm erfolgt in 20 Zeilen mit je 38 Zei¬ 
chen. Ab der 20. Spalte beginnt der 
Bildschirm jedoch horizontal zu Scrol¬ 
len, so daß Zeilen mit einer maximalen 
Länge von 255 Zeichen ohne Zeilen¬ 
vorschub eingegeben werden können. 
Vor allem bei Tabellen ist dies sehr nütz¬ 
lich und dient der Übersichtlichkeit. 

Am oberen Bildrand sind ständig 
einige Informationen eingeblendet (Bild 
5). So erfährt man die Zahl der bisher 
eingegebenen Zeichen, die Spalte, in 
der sich der Cursor befindet, und den 
restlichen Speicherplatz, der für den zu 
bearbeitenden Text zur Verfügung 
steht. Zudem ist die Größe des Kopier¬ 
speichers angegeben. Dieser Speicher 
umfaßt rund 4000 Zeichen und dient 
vor allem zur Verschiebung von Text- 
biöcken. Am unteren Bildrand befindet 
sich die Statuszeile, die man über die 
ESC-Taste erreicht. Hier gibt man alle 
Kommandos ein, wie beispielsweise 
das Laden und Speichern von Texten. 


Zur Anpassung des Programms an 
verschiedene Drucker existiert kein 
spezielles Programm. Alle Steuerse¬ 
quenzen für den Drucker müssen daher 
direkt im Text eingegeben werden. Laut 
Handbuch soll auch »A-Text« über die 
Joystickports mit einem Drucker in Ver¬ 
bindung treten können. Wie dies genau 
geschehen soll, bleibt selbst nach 
mehrmaligem Lesen des entsprechen¬ 
den Kapitels unidar. 


Perfektion 
aus den Staaten 


Aus den USA kommt ein Textverarbei¬ 
tungsprogramm mit dem Namen 
»Paperclip«. Entsprechend ist das 
ansonsten hervorragende Handbuch 
natürlich in Englisch abgefaßt. Auch ein 
deutscher Zeichensatz bleibt ein 
Wunschtraum. Sieht man hiervon ab, 
steht einem mit »Paperclip« allerdings 
ein Programm mit fast unbegrenzten 
Möglichkeiten zur Verfügung. 
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Bild 5. So kann bei dem Programm »A-Text« ein Text auf dem 
Bildschirm aussehen. 
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Bild 6. Das Arbeiten mit zwei Fenstern Ist bei »Paperclipt« 
ganz einfach und erleichtert so manche Problemstellung. 



Bild 7. Eine solche grafische Darstellung läßt sich mit 
»Paperclipu zu Papier bringen. 


Bild 8. Ein Hauptmenü von »HomeText«. Jede Funktion läßt 
sich mit nur einer Taste auf rufen. 


Zum Schütz vor Raubkopieren hat 
man sich hier übrigens etwas Besonde¬ 
res einfallen Bassen. Das Programm an 
sich ist nicht geschützt und soll sogar 
aus Sicherheitsgründen auf eine zweite 
Diskette kopiert werden. Zum Betrieb 
des Programms braucht man allerdings 
einen speziellen SchlüsseL Hierbei 
handelt es sich um eine kleine Box, die 
man am Joystickport 2 einstecken muß. 
Ohne diesen Schlüssel läuft gar nichts. 

»Paperclip« ist zwar nur spärlich 
menügesteuert, jedoch fällt dies hier 
nicht besonders ins Gewicht Erstens 
findet sich rasch jeder der einprägsa¬ 
men Befehle in dem wirklich übersichtli¬ 
chen Handbuch. Zweitens kann man 
bei Bedarf drei verschiedene Helpfiles 
aufrufen, in denen die Befehle kurz 
erläutert sind. Besonders praktisch ist 
hierbei, daß ein Helpfile in einem zwei¬ 
ten Fenster eingeblendet wird. Die 
wichtigsten Befehle können also paral¬ 
lel zum Text ständig eingesehen wer¬ 
den. Wer ohne Helpfile arbeitet, kann 
mit Hilfe der Fenster auch zwei ver¬ 
schiedene Texte gleichzeitig im Spei* 


eher bearbeiten (Bild 6). Das Hin- und 
Herschalten zwischen den Texten erle¬ 
digt die SELECTTaste. 

Ist nur ein Fenster geöffnet, so wird 
der Text in 18 Zeilen mit je 39 Zeichen 
dargestellt Die Zahl der Zeichen, die 
man mit dem horizontalen Scrolling 
nebeneinander schreiben kann, läßt 
sich zwischen 15 und 130 Zeichen ein¬ 
stellen. Wie der Text schließlich auf dem 
Drucker aussieht, kann man sich auch 
bei diesem Programm vorher ansehen. 
Die formatierte Darstellung erfolgt aber 
nicht mit 80 Zeichen Bildbreite, son¬ 
dern in normaler Breite. Gegebenen¬ 
falls muß man den Text dann auf dem 
Bildschirm horizontal Scrollen, um einen 
Gesamtüberblick zu erhalten. 

Der Serienbrief-Ausdruck ist mit 
»Paperclip« kein Problem. Auch arbeitet 
dieses Programm ohne Schwierigkei¬ 
ten mit bekannten Programmen wie 
»SynFile+« und »B/Graph« zusammen. 
Besonders interessant ist das ebenfalls 
auf der Diskette enthaltene Programm 
»HIRES«. Es handelt sich hierbei um ein 
Hardcopy-Programm, das Grafikbilder 


von unterschiedlichstem Format aus- 
drucken kann, Bild 7 zeigt hierzu ein 
Beispiel Die grafische Darstellung 
einer Statistik, die man beispielsweise 
mit »B/Graph« erstellt hat, kann man 
ausdrucken und so in einen Text ein¬ 
bauen. 

Der Druckeranpassung wurde bei 
diesem Programm besondere Aufmerk¬ 
samkeit gewidmet. Auf der Diskette 
befinden sich bereits über 30 fertige 
Files, passend zu einer Vielzahl von 
Druckern. Sollte sich der eigene 
Drucker hier trotzdem noch nicht fin¬ 
den, existiert ein Anpassungspro¬ 
gramm, in dem man die speziellen 
Druckeranforderungen festhalten kann. 

Zum Ausdrucken von mehreren Files 
kann man sich übrigens ein sogenann¬ 
tes Batch-File anlegen. In solch einem 
Fife fuhrt man einfach alle zu drucken¬ 
den Textfiles auf und speichert es dann. 
Beim Aufruf des Batch-Files werden 
alle darin vorkommenden Kommandos 
nacheinander ausgeführt. Diese 
Methode wird man vor allem dann an¬ 
wenden, wenn ein Text in mehreren ein- 
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zelnen Teilen abgelegt ist und mit einem 
einzigen Befehl ausgedruckt werden 
soll. 


100 Prozent Menü 


»HomeText« ist eigentlich keine 
eigenständige Textverarbeitung, son¬ 
dern Teil eines Programmpakets. Unter 
dem Namen »HomePak« erhält man 
nämlich neben einer Textverarbeitung 
auch ein Terminal- und ein Datenverar¬ 
beitungsprogramm. 

Wie schon »Paperclip« kommt auch 
dieses Programmaus den USA. Sowohl 
das Handbuch wie auch die Benutzer¬ 
führung sind also in Englisch ausgelegt. 
Dies stört bei »HomeText« jedoch kaum. 
Als einzige Textverarbeitung ist »Home¬ 
Text« zu 100 Prozent menügesteuert. 


Allerdings ist auch hier kein deutscher 
Zeichensatz verfügbar, weder auf dem 
Bildschirm noch auf dem Drucker. 

Die Stärken von »HomeText« liegen 
vor allem in seiner Kompaktheit und 
Übersichtlichkeit. Insgesamt kann man 
mit nur drei Menüs alle Funktionen die¬ 
ses Programms ansprechen. Bild 8 
zeigt eines der Menüs. Dabei versteht 
sich »HomeText« weniger als eigenstän¬ 
diges Textverarbeitungsprogramm, 
sondern ist vielmehr zur Zusammenar¬ 
beit mit den beiden anderen Program¬ 
men des Pakets konzipiert. 

So kann man beispielsweise Daten 
des »Homefind«-Programms überneh¬ 
men und auf diese Weise Serienbriefe 
erstellen. »HomeTerm«, das DFÜ- 
Programm, holt sich Textdateien, die 
man per Akustikkoppler verdichten 
möchte, vom Textprogramm. Über DFÜ 


empfangene Texte kann man natürlich 
mit »HomeText« weiterverarbeiten. Alle 
drei Programme befinden sich auf nur 
einer Diskette und können durch ein 
Hauptmenü schnell und bequem aufge¬ 
rufen werden. Auch beim Datenaus¬ 
tausch gibt es durch die aufeinander 
abgestimmten Programme keine Pro¬ 
bleme. 

Ein Nachteil von »HomeText« ist 
jedoch der etwas zu klein geratene 
Textspeicher. Er faßt nur 6620 Zei¬ 
chen. Bei längeren Texten ist man also 
gezwungen, den Text in mehreren Files 
abzulegen. Die Textdarstellung erfolgt 
in 21 Zeilen mit 38 Spalten. Horizonta¬ 
les Scrollen über den rechten Bildrand 
hinaus ist nicht möglich. Dafür kann man 
sich mit dem Drucker-Preview ein Bild 
von dem fertigen Text machen. In skiz¬ 
zierter Form wird ein Blatt Papier auf 
dem Bildschirm dargesteilt, auf dem der 
Text nur in Linien dargestellt ist. Dies 
genügt durchaus, um die äußere Form 
und Raumaufteilung des späteren Tex¬ 
tes beurteilen zu können. 


Kompromisse statt 
optimaler Lösungen 


Für welches der sechs Textverarbei- 
tungsprogramme man sich letztlich ent¬ 
scheidet, hängt vor atiem davon ab, in¬ 
wieweit man das Programm professio¬ 
nell nutzen möchte. Zumindest der 
deutsche Zeichensatz sollte sowohl auf 
dem Bildschirm als auch auf einem 
Drucker darstellbar sein. Eine gute 
Menüsteuerung wird man schnell 
schätzen lernen, wenn man nur ab und 
zu Texte bearbeitet und daher umfang¬ 
reiche Kontroilcodes kaum im Gedächt¬ 
nis behält. Kann man sich einen Text vor 
dem Drucken in seiner späteren Form 
ansehen, erspart dies so manches Blatt 
Papier. Vor allem bei Briefen, in denen 
es auch auf eine gewisse Raumauftei¬ 
lung ankommt, trifft das zu. Sind häufig 
Tabellen zu erstellen, ist es von Vorteil, 
wenn die Zahl der Zeichen, die neben¬ 
einander ohne Zeilenvorschub darge¬ 
stellt werden können, möglichst groß 
ist. Zur professionellen Anwendung 
gehört natürlich auch der Serienbrief- 
Ausdruck. Doch wer sich die Vergleichs¬ 
tabelle ansteht, wird schnell feststellen, 
daß es das optimale Programm für den 
Atari nicht gibt. So bleibt dem Anwen¬ 
der immer nur ein Kompromiß und er 
wird auf das Programm zurückgreifen, 
das für ihn die wenigsten Nachteile auf¬ 
weist. 

(Wolfgang Czerny/wb) 
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Die wichtigsten Daten der getesteten Textprogramme auf einen Blick 


Atari-Sctireiber 

StafTexter 

AustrciText 

PäpfiEclip 

Homefesl 


AnäeiturtgmDeufäcft 

ja 

ja 

ja 

nem (^isch) 

nein (Engisch} 

ja 

DatefitnS^ 

Modul öder DfeMe 

Distette 

Diskette 

Diskette 

Diskette 

Modul. Diskette 
oderitette 


ja 

ja 

ja 

nein 

nein 

nein 

Z9ic^e{3satz willig 


ja 

nein 

neäi 

nein 

nein 

IBÄ umbelegt 

ja 

wahlweise 

nein 

mn 

nein 

nein 

Printer Pneview 

nm 

ja 

ja 

ß 

grafisch angedeutef 

nein 

HQ/ffijfltales 

Scroing 

nein 

ja 

nein 

ja 

rrem 

ja 

max. Zeieniänge 

35 

80 

40 

130 

33 

25S 

Dnjckerarpassmg 

teiwiei&e 

vofängestdlt 

peflnstaälatkMis- 

progfamm 

InsWions- 

prugrgmm 

instÄions- 

progmt 

InsteflaiiDne- 

pfogEamm 

mit Steuerzeichen 

ml&l 

Cenbwiics^oteilace 

nötvnffidig 

ja 

nicht unhedingt 

nicht unbedingt 


ja 

nicht unbedingt 

Grafik'Ausdaicf: 

nein 

Graftochen 

nem 

HardMpy- 

ProgrammterBIffer 

nein 

nein 


ja 


Statuszeüe 

teäwei^ 

ja 

Siatuszeile 

FotmaSerenauS 

BiEdsct^rm 

nein 

ja ■ 

nur in Preview 

nurinPnanew 

nur in Preview 

nein 

Guaitaictes 

Handbuches 

gut 

befriedigend 

befriedigend 

sehr gut 

gut aber knapp 

befriedigend 

PeinscroUiig 

nein 

nein 

ja 

nein 

nein 

nein 

8k)cksafz 

nur auf Drucker 

auf dem Bildschirm 

und dem Drucker 

äufdemDrudtof 

odermPre^ew 

auf den Dnffiker 

oder in Review 

nur auf dem 

Drucker 

nifaufdem 

Drutiffir 

TextspelcJiefs 

20448 Byte 

20000 Bytei 
maximal 2S0Ze9an 

26 762 Byte 

keine Angabe 

6620 Byte 

2$ 928 Byte 

Serienbriet 

ja 


nem 

ja 

ja 

rffiin 

Mathematische 

RjnWionen 

nein 


nein 


nein 

nein 

Prefe 

ca 50 Mark 

54 Mark 

109 Mark 

149 Mark 

ca. 150 Mark 

49 Mark 
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Befehle 

mit 

Basic XE 

Wem das Atari-Basic zu unkom¬ 
fortabel und zu langsam ist, 
bekommt für etwa 300 Mark 
Basic XE auf Modul. Es ist das 
leistungsfähigste Basic für 
Atari-Computer mit bis zu 128 
KByte-RAM. 

B asic XE ist eine Weiterent¬ 
wicklung von Basic XL, wobei 
natürlich den besonderen Fä¬ 
higkeiten des neuen Atari-Computers 
130XE Rechnung getragen wurde. 
Weiterentwicklung bedeutet vor allem 
die Hinzunahme neuer Befehle. Dabei 
sah man sich allerdings scheinbar zu 
Kompromißlösungen gezwungen. Kam 
man bei Basic XL noch mit einem Modul 
aus, so muß bei Basic XE neben dem 
Modul zusätzlich noch eine Diskette als 
Speichermedium herhalten* Dies birgt 
nun gleich zwei Nachteile in sich. Zum 
einen kann man ohne Diskettenlauf¬ 
werk nicht mehr alle Befehle von Basic 
XE nutzen, zum anderen belegt das 
File, das die zusätzlichen Befehle ent¬ 
hält, immerhin 91 Sektoren auf der Dis¬ 
kette. Dafür sind aber auf der Masterdis¬ 
kette bereits einige kleine Programme 
enthalten, welche die Besonderheiten 
von Basic XE demonstrieren sollen. 
Neben Modul und Diskette erhält man 
natürlich auch ein Handbuch, das 
bedauerlicherweise in englischer Spra¬ 
che gehalten ist. Doch auch ohne grö¬ 
ßere Englischkenntnisse sollten die 
Funktionen von Basic XE aufgrund der 
zahlreichen Beispielllstings in diesem 
Handbuch verständlich werden. 

Zu den Befehlen, die Bestandteil des 
Diskettenfiles sind, gehört auch der 
Befehl »FAST«. Mit dieser Anweisung 
gelangt man in den sogenannten »Fast 
Modus« von Basic XE. Ist dieses Basic 
bereits im normalen Modus rund dop¬ 
pelt so schnell wie das Standard-Atari- 
Basic, so erhöht sich im »Fast Modus« 
die Verarbeitungsgeschwindigkeit von 
Programmen nochmals um den Faktor 
zwei. Die insgesamtalso etwa vierfache 
Steigerung der Geschwindigkeit reicht 
so oftmals schon aus, um Programme 
zu schreiben, die sonst ohne Maschi¬ 
nensprache-Unterstützung zu langsam 


v\rären. Ebenfells auf Diskette befindet 
sich ein File, das nur vom Atari 130XE 
oder aufgerüsteten Atari 800XL-Com- 
putern verarbeitet werden kann. Mit 
dem Befehl »EXTEND« spricht man die 
zusätzlichen 64 KByte an, die dem 
130XE zur Verfügung stehen. Dieser 
Befehl verlegt das momentan im Spei¬ 
cher befindliche Programm in diese 64 
KByte und schafft so Platz für andere 
Programme und Daten. Der Zusatzspei¬ 
cher ist in vier Blocks von jeweils 16 
KByte aufgeteilt. Jedem Block ist eine 
Nummer von 0 bis 3 zugeordnet. Ein 
spezieller POKE-Befehl erlaubt dann 
unter Angabe der Blocknummer, ein¬ 
zelne Daten in den Zusatzspeicher zu 
verlegen. 

Piayer/Missiles 
mit Komfort 

Zu den neuen Befehlen, die gegen¬ 
über Basic XL hinzugekommen sind, 
gehören auch eine Reihe von Anwei¬ 
sungen, die die Player/Missile-Pro- 
grammierung betreffen. War man im 
normalen Basic noch gezwungen, eine 
Vielzahl verschiedener Adressen zu 
kennen, um Player oder Missiles anzu¬ 
sprechen, so erübrigt sich dies in Basic 
XE fast vollständig. Für nahezu Jede 
Manipulation existiert ein eigener 
Befehl. »PMMOVE« beispielsweise ver¬ 
anlaßt eine beliebige Richtungsände¬ 
rung eines Players oder Missiles. Auch 
die Kollisionsabfrage läßt sich mit einem 
einzigen Befehl mit dem Namen »BUMP« 
ausführen. Als recht nützlich erweist 
sich die Anweisung »PMCLEAR«, mit 
der sich der Speicherbereich, in dem 
ein Player oder eine Missile unterge- 
bracht ist, schnell und einfach löschen 
läßt. 

Die Stringverarbeitung, die im norma¬ 
len Basic etwas stiefmütterlich behan¬ 
delt wird, ist nun wesentlich vereinfacht 
und damit auch komfortabler geworden . 
Es fängt damit an, daß man mit Basic XE 
auch indizierte Springfelder dimensio¬ 
nieren kann. Mit der Anweisung »D!M 
A$ (3,10)« beispielsweise werden drei 
Felder mit der Länge 10 erzeugt, die 
sich dann mit »A${1)«, »A$(2)« und 
»A${3)« aufrufen lassen. Einzelne Teile 
dieser Felder bearbeitet man dann mit 
den Befehlen »LEFT$«, »RIGHTS«, 
»MID$« oder »FIND$«. So gibt »FIND$« 
beispielsweise an, ob und wo sich ein¬ 
zelne Zeichen in einem String befinden. 
Das Sortieren von Arrays ist mit Basic 
XE ebenfalls kein Problem mehr. Hierzu 
verwendet man die Befehle »SORTUP« 
und »SORTDOWN«. Numerische oder 
alphanumerische Felder lassen steh 
also in aufsteigender oder abfallender 
Folge sortieren. Dabei kann man entwe¬ 
der das gesamte Feld oder nur ausge¬ 
wählte Teilbereiche erfassen. 


Programmieren, 
fast wie in Pascal 

Auffallend sind vor allem auch Pascal¬ 
ähnliche Elemente, die in Basic XE auf- 
tauchen. Unterprogramme lassen sich 
zum Beispiel als Prozeduren gestalten. 
Diese können mit »CALL« aufgerufen 
und mit »EXIT« wieder verlassen wer¬ 
den. Innerhalb von Prozeduren kann 
man dann mit lokalen Variablen arbei¬ 
ten. Das heißt, solche Variablen können 
zwar namensgleich mit anderen im Pro¬ 
gramm verwendeten Variablen sein, 
sind mit diesen jedoch nicht identisch. 
Ebenfalls von Pascal entlehnt ist sowohl 
die »WHILE-ENDWHILE«-Schleife als 
auch die bedingte Verzweigung »IF 
ELSE-ENDIF«. Auf diese Weise lassen 
sich vor allem die uneleganten und 
zur Unübersichtlichkeit beitragenden 
»GOTO«“Anweisungen weitgehend aus 
einem Programm verbannen. Mit Basic 
XE ist es also möglich, bis zu einem 
gewissen Grad strukturiert zu program¬ 
mieren und so eine wesentlich bessere 
Übersichtlichkeit eines Programms zu 
erzielen. Dies wird zudem durch die Tat¬ 
sache unterstützt, daß ein üsting in 
Basic XE formatiert ausgegeben wird. 


100 Rem-‘- 

110 Rem BEISPIEL-LISTIMEJ 
120 Rsm mit 

130 Rem-—-—— 

140 Graphics; O 

150 ? "RATEN SIE EINE 

160 7 "ZWISCHEN 1 UND 100" 

170 7 

180 Zät>l=Raric}om< 1,100> 

190 While VersuctiOZahl 

200 ? LAUTET IHR VERSUCH 

210 Input Vei-such 

220 1+ Versuch<Zahl 

230 2 -DIE ZAHL IST ZU KLEIN“ 

240 Else 

250 Versuch>Iahl 

260 ? "DIE ZAHL IST ZU GROSS" 

270 Endif 

280 Encfif 

290 Ehdk^ile 

300 7 :2 “GEFUNDEN" 

310 End 


Listing. Ein typisches Basic XE-Programm. 

Schleifen und »IF«-Anweisungen wer¬ 
den also automatisch eingerückt und so 
optisch hervorgehoben. Ein typisches 
Basic XE-Programm zeigt das Listing 1. 

Viele der neuen Routinen sind dem 
geübten Programmierer bereits von oft 
benötigten Maschinensprache-Unter¬ 
programmen her bekannt. So ver¬ 
schiebt man Speicherbiöcke mit dem 
Befehl »MOVE«. Dadurch kann man bei¬ 
spielsweise den Inhalt des Bildschirm¬ 
speichers in einem String ablegen oder 
den Atari-Zeichensatz kopieren. Die 
automatische Zeilennumerierung bei 
der Programmeingabe und die Neu¬ 
numerierung eines bestehenden Pro¬ 
gramms sind ebenfalls ohne Maschi- 


























nenhiffsroutinen durchführbar. Hierzu 
dienen die Befehle und 

»RENUM^c. Benötigt man eine Liste aller 
im Programm verwendeten Variablen, 
so erlaubt das der Befehl ^^LVAR^. Zur 
schnellen Umwandlung von dezimalen 
in hexadezimale Zahlen benutzt man 
den ^HEX$<c-Befehl. Nützlich ist der 
Befehl »SET«. Mit ihm fassen sich eine 
Reihe von grundsätzlichen Parametern 
alfgemeiner Art ändern. So ermöglicht 
dieser Befehl beispielsweise die Aus¬ 
wahl, mit welchem Zeichen eine Input- 
Anweisung den Benutzer zur Eingabe 
auffordert. Die Funktion der »BREAK«- 
Taste kann auch auf diese Weise unter¬ 
bunden werden. Selbst das Dimensio¬ 
nieren von Strings erübrigt sich mitun¬ 
ter, Bis zu einer Größe von 255 Zei¬ 
chen, abhängig von der jeweiligen 
»SET«-Einstellung, werden Strings 
nämlich automatisch dimensioniert. 
Insgesamt können 16 verschiedene 
Parameter mit diesem Befehl beeinflußt 
werden. Die Einstellung der Parameter 
fragt man mit dem Befehl »SYS« ab. 

Hilfreich bei der Fehlersuche ist der 
»TRACE«-Befehl. Vor der Ausführung 
einer Programmzeile erscheint die 
jeweilige Zeilennummer auf dem Bild¬ 
schirm. So kann man leicht kontrollie¬ 


ren, ob sich ein Programm in den 
gewünschten Bahnen bewegt. Die 
Textausgabe erfolgt wahlweise invers 
oder normal, was einfach durch die bei¬ 
den Befehle »INVERSE« und »NOR¬ 
MAL« gesteuert wird. Man kann einen 
auszugebenden Text aber auch noch 
formatiert darstellen. Dies geschieht 
mit dem »PRINT USING«-Befehl. 

Auch einige DOS-Funktionen finden 
sich in Basic XE wieder. So läßt sich das 
Inhaltsverzeichnis einer Diskette zum 
Beispiel mit dem Befehl »DIR« abrufen. 
Für das Löschen und Umbenennen von 
Files auf Diskette existieren eigene 
Befehle. Neben den gewohnten Befeh¬ 
len »GET«, »PUT«, »PRINT« und »INPUT«, 
die zum Lesen und Schreiben von 
Daten auf Diskette verwendet werden, 
stellt Basic XE zu diesem Zweck einige 
neue Befehle zur Verfügung. Sie zeich¬ 
nen sich vor allem durch eine höhere 
Ausführungsgeschwindigkeit aus. Mit 
»BPUT« und »BGET« schreibt bezie¬ 
hungsweise liest man ganze Speicher- 
blöcke von Diskette Auf diese Weise 
lassen sich beispielsweise Grafikbilder 
schnell und einfach von Diskette laden 
oder speichern. »RPUT« und »RGET« 
sind für das Speichern und Lesen von 
Records mit fester Lange verantwort¬ 


lich. Dabei kann ein Record sowohl aus 
einem String wie auch einer Gleitkom¬ 
mazahl bestehen. Schließlich gibt es 
noch die Befehle »BLOAD« und 
»BSAVE«, die man für die Behandlung 
von Binärfiles im »DOS LOAD«-Rormat 
benutzt Normale Maschinensprachefi¬ 
les können also von Basic aus geladen 
und gestartet werden. 

Gut, aber teuer 

Die Qualität der Befehle und der 
Befehlsumfang (Basic XE umfaßt zirka 
150 Befehle) lassen kaum Wünsche 
offen. Lediglich das Laden zusätzlicher 
Befehle von Diskette scheint keine 
glückliche Lösung zu sein. Das ent¬ 
scheidende Kaufhindernis dürfte aller¬ 
dings der Preis von Basic XE sein. Mit 
etwa 300 Mark ist es wohl eines der 
teuersten Programme, die derzeit für 
Atari-Computer angeboten werden. 
Der Preis fällt um so mehr ins Gewicht, 
wenn man bedenkt, daß beispielsweise 
Turbo-Basic XL bei ähnlichen Lei¬ 
stungsmerkmalen doch wesentlich billi¬ 
ger zu haben ist. . 

(Wolfgang Czeimy/wb) 

B^zugsfiudee: 

CompyShöpi, Gneisenaustr. 29. 4330 Mühlheim/Ruhr, 

Tel (0208) 497169 


DOS- 

Parade 

Wichtigstes Hilfsmittel zum 
Arbeiten mit einer Diskettensta¬ 
tion ist das DOS. Doch welche 
der verschiedenen DOS-Versio- 
nen soll man wählen? 

D OS ist die Abkürzung für Disk 
Operating System oder auf 
deutsch Disketten Betriebssy¬ 
stem. Betreibt man ein oder mehrere 
Diskettenlaufwerke am Atari, so kommt 
man ohne ein solches DOS nicht aus. 
Die zum Betrieb eines Laufwerks nöti¬ 
gen Routinen sind nämlich nicht im 
eigentlichen Betriebssystem des Atari 
verankert, sondern müssen stets von 
Diskette geladen werden. Dies hat den 
Vorteil, daß man sich, abhängig vom 
verwendeten Laufwerk und den spe¬ 
ziellen Bedürfnissen, das jeweils opti¬ 
male DOS heraussuchen kann. 

Von Atari selbst gibt es nun schon die 
vierte offizielle DOS-Version. Angefan¬ 
gen hat es mit »DOS 1.0«. Diese erste 


Version, die zusammen mit dem Atari- 
Laufwerk 810 Ende 1979 erschien, war 
noch mit etlichen Nachteilen und klei¬ 
neren Fehlern behaftet. So gab es bei¬ 
spielsweise noch kein »AUTORUN. 
SYS«-File, um Programme nach dem 
Einschalten des Computers automa¬ 
tisch zu laden und zu starten. Anderer¬ 
seits konnte zum Kopieren von Pro¬ 
grammen und Disketten nur ein relativ 
kleiner Puffer und nicht der gesamte 
RAM-Speicher verwendet werden. 
Auch war der wahlfreie Zugriff auf ein¬ 
zelne Byte in bestimmten Sektoren mit 
den NOTE- und POINT-Befehlen noch 
nicht implementiert. Es verwundert also 
kaum, daß Atari bereits Anfang 1980 
eine neue Version, nämlich »DOS 2.0« 
(Bild 1) herausbrachte. 

Dieses DOS war nun frei von den Feh¬ 
lern und den gröbsten Nachteilen der 
ersten Version. Allerdings ging man 
auch hier Kompromisse ein. War DOS 
1.0 noch ständig komplett im Speicher 
vertreten, teilte man DOS 2.0 in zwei 
getrennte Files auf. Zum einen in das 
DOS.SYS-File, das durch den Boot- 
Vorgang in den Speicher des Atari 
gelsüngte, zum anderen in das DUP.SYS- 
File, das nur bei Bedarf durch den DOS- 
Aufruf von Basic aus geladen wurde. 
Vorteil dieser Methode ist die Einspa¬ 
rung von wertvollem Speicherplatz. Nur 


noch rund 2 Kilobyte des RAM- 
Speichers gingen durch die Belegung 
des DOS.SYS-Files verloren. Die wich¬ 
tigsten Funktionen, wie das Speichern 
und Ijaden von Programmen waren 
dabei noch durchführbar. Auch konnte 
man mit speziellen XIO-Routinen bei¬ 
spielsweise Disketten formatieren oder 
Files auf Diskette löschen. Spätestens 
aber zum Kopieren von Programmen 
oder zur Ausgabe des Disketteninhal¬ 
tes auf dem Bildschirm, mußte man das 
DUP.SYS-File aufrufen. Dabei wurden 
im Arbeitsspeicher befindliche Basic- 
Programme jedoch überschrieben. Zur 
Rettung des Speicherinhaltes mußte 
man sein Programm daher entweder 
vor jedem DOS-Aufruf speichern oder 
aber ein sogenanntes MEM.SAV-File 
anlegen, in welches das Programm vor 
dem Laden des DURSYS-Files automa¬ 
tisch gespeichert wurde. Dies ist aber 
zeitaufwendig und bedeutet zusätzli¬ 
chen Platzverbrauch auf der Diskette. 
Abgesehen davon konnte man mit die¬ 
sem DOS jedoch zufrieden sein, und es 
ist wohl heute noch das meistverbrei- 
tete DOS für Atari-Computer. 

Als 1983 ein verbessertes Atari- 
Laufwerk 1050 erschien, entschloß 
man sich bei Atari auch für eine neue 
DOS-Version, dem DOS 3.0 (Bild 2 
zeigt das Hauptmenü von DOS 3.0). 
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Bild 1. Das HauptfEienü zu DOS 2.0. Sämtliche Disketten¬ 
operationen lassen sich von hier ausführen. Da Disketten 
allerdings mit maximal 720 Sektoren zu formatieren sind, 
ergibt sich eine Gesamtspeicherkapazität von rund 88 KByte. 


Bfid 2. DOS 3.0 präsentiert dch mit einem etwas anders auf 
gebauten Menü. Als Besonderheit gibt es hier die »Hilfen«- 
Funktion, mit der man sich erklärende Texte zu d&n einzelnen 
Menüfunktiormn direkt auf den Bildschirm holen kann. 


Der Hauptgrund hierfür war eine spe¬ 
zielle Eigenschaft des neuen Lauf¬ 
werks. Neben der normalen Schreib¬ 
dichte, die auch das Laufwerk 810 
beherrscht, kann das 1050er Laufwerk 
in einer höheren Schreibdichte (enhan- 
ced density) arbeiten. Dies ist nicht mit 
der doppelten Schreibdichte (double 
densitiy) zu verwechseln. Denn dies 
würde beim Atari 1050-Laufwerk be¬ 
deuten, daß pro Sektor statt 128 Byte 
256 Byte Platz fänden. Bei gleicher 
Sektorenzahl würde man also die dop¬ 
pelte Speicherkapazität erreichen. 

DOS 3.0 


Erhöhte Schreibdichte bedeutet nur, 
daß statt 18 jetzt 26 Sektoren pro Spur 
angelegt werden können. Die Anzahl 
erhöht sich also von 720 auf 1040. 
Praktisch verfügt man nur über 1023 
Sektoren, da das Laufwerk die übrigen 
17 nicht mehr verwalten kann. 

Bei DOS 3.0 kam man auf die kuriose 
Idee, jeweils acht Sektoren zu einem 


Block von 1024 Byte zusammenzufas- 
sen. Dies erleichtert dem Directory 
zwar die Verwaltungsarbeit, hat aber 
zwei entscheidende Nachteile. Einmal 
wird dadurch in der Regel enorm viel 
Platz verschwendet: Die Mindestiänge 
eines Programms auf der Diskette 
beträgt nun nämlich einen Block bezie¬ 
hungsweise acht Sektoren. Selbst ein 
Programm mit einer Länge von nur 10 
Byte belegt damit einen ganzen Block, 
also 1024 Byte. Außerdem ist dieses 
Format unglücklicherweise nicht kom¬ 
patibel zu DOS 2.0. Eine mit DOS 3.0 
formatierte Diskette kann also nicht 
unter DOS 2.0 gelesen werden. Umge¬ 
kehrt sind die alten Atari-Laufwerke 810 
nicht mehr in der Lage, DOS-3.0 Disket¬ 
ten zu verarbeiten. Ein unter DOS 2.0 
erstelltes File kann zwar auf DOS 
3.0-Fcrmat umgewandelt werden, um¬ 
gekehrt ist dies jedoch nicht durchführ¬ 
bar Zum Trost sei aber gesagt, daß zu 
diesem Zweck bereits Utilities in ver¬ 
schiedenen Zeitschriften erschienen 
sind. 


Trotz dieser Nachteile mußte man bis 
zur Einführung des neuen Atari 130XE 
warten, bis die vorläufig letzte Version, 
nämlich DOS 2.5, erschien. DOS 2.5 
kann man getrost als das beste DOS 
bezeichnen, das von Atari bisher gelie¬ 
fert wurde (Bild 3). Es unterstützt die 
erhöhte Schreibdichte des 1050er 
Laufwerks. Di e Diskette nverwaitu n g 
durch Blocks ist aufgehoben worden, 
so daß die Filekompatibilität zur Version 
2.0 wieder hergestellt ist. Es sind also 
einzelne Sektoren ängesprochen, 
deren Anzahl aber gestiegen ist. Dies 
hat auch den Vorteil, daß man Disketten 
mit erhöhter Schreibdichte wenigstens 
zum Teil mit dem alten Laufwerk 810 
lesen kann. Lediglich die Sektoren zwi¬ 
schen 720 und 1023 bleiben dem 
1050er Laufwerk Vorbehalten. Sind 
mehr als 999 Sektoren frei, so werden 
diese übrigens nicht mehr angezeigt. 
Dadurch sollte man sich jedoch nicht 
irritieren lassen. Natürlich unterstützt 
DOS 2.5 auch die 128 KByte des 
130XE. Vor allem kann man im zusätzli¬ 
chen 64 KByte umfassenden - RAM- 
Speicher eine sogenannte RAM-Disk 
anlegen, die wie ein Diskettenlaufwerk 
mit der Laufwerknummer 8 angespro¬ 
chen wird. Man verfügt dann über rund 
500 »Sektoren«, deren Inhalt quasi 
ohne Zeitverlust geladen oder be¬ 
schrieben werden kann. Außerdem hat 
man noch einige andere neue Fähigkei¬ 
ten in das DOS aufgenommen, die zwar 
nicht im Menü aufgeführt sind, jedoch 
über ».COMc-Files ausgeführt werden 
können. Versehentlich gelöschte Pro¬ 
gramme wiederherzustellen, sofern sie 
nicht bereits überschrieben wurden, ist 
nun kein Problem mehr. DOS 3.0-Files 
lassen sich in das DOS 2.5-R)rmat 
umwandeln. Auch kann man AUTO- 
RUN-SYS-Files zum automatischen 
Programmsfart von Basic-Programmen 
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Bild 3. Wer DOS 2.0 
bereits kennt, 
kommt mit DOS 2.5 
schnell zurecht. 

Der einzige Unter¬ 
schied: Mit »I« 
formatiert man eine 
Diskette im enhan- 
ced Modus und mit 
»P« erhält man ein 
Diskettenformat 
identisch mit 
DOS 2.0. 
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Bild 4. DOS XL befindet sich ständig im RAM-Speicher. Gibt 
man von Basic aus »DOS« ein, gelangt man ohne Disketten- 
zugrlffe zur Kommandozeile. Befindet sich zu dem Zeitpunkt 
ein Basic-Piogramm im Speicher, wird es nicht gelöscht. 


Bild 5. Happy-DOS (Listing des Monats in Ausgabe 3/86) ist 
ähnlich aufgebaut wie DOS XL. Es liegt ebenfalls stets im 
Speicher vor. Als besonderen Leckerbissen bietet Happy-DOS 
noch eine RAM-Disk, die insgesamt 12 KByte umfa&t. 


erzeugen. Da für jedes vorgesehene 
Laufwerk 128 Byte Speicherplatz im 
DOS reserviert werden, ist es ein leich¬ 
tes, die Anzahl der verwendeten Lauf¬ 
werke an die eigene Konfiguration an¬ 
zupassen. So lassen sich auch noch 
einige Byte einsparen. Etwas störend 
wirkt sich die Anordnung des Directory- 
Eintrags auf einer EKDS 2.5 formatierten 
Diskette aus. Da dieser Eintrag nicht in 
einem Stuck, sondern verteilt auf der 
Diskette plaziert ist, macht sich der 
Schrei b-/Lesekopf des Laufwerks 
immer wieder durch lautstarke Posi¬ 
tionswechsel bemerkbar 
Natürlich gibt es auch DOS-Versio- 
nen von anderen Herstellern als Atari, 
beispielsweise DOS XL 2.3 von OSS. 
Unter dieser DOS-Version laufen so 
bekannte Programme wie »Actione, 
»MAC/65« oder »Basic XL«. Obwohl 
dies der Name nicht vermuten Iä6t, ist 
DOS XL für alle Atari-Computer ver¬ 
wendbar, da drei verschiedene Versio¬ 
nen auf der Master-Diskette vorhanden 
sind - passend zu der jeweiligen Spei¬ 
cherkonfiguration. Die Kommandozeile 
mit einem teilweise aufgelisteten Direc¬ 
tory zeigt Bild 4. Neben der normalen 
Schreibdichte wird bei DOS XL sogar 
die doppelte Schreibdichte unterstützt. 
Um dies zu nutzen, muß man allerdings 
entweder das Atari 1050-Laufwerk 
hardwaremäßig erweitern {wie im Arti¬ 
kel »Floppy-Speeder« in diesem Son¬ 
derheft beschrieben), oder man ver¬ 
wendet ein Laufwerk eines Fremdher- 
stellera Die Speicherkapazität einer 
Diskette steigt dann allerdings von 90 
KByte unter normier Schreibdichte 
oder 130 KByte bei erhöhter Schreib¬ 
dichte auf stolze 176 KByte. Dieses 
RDrmat ist dann natürlich von den Atari- 
DOS-Versionen nicht mehr lesbar. Ver¬ 
zichtet man aber auf doppelte Schreib¬ 
dichte, so besteht Filekompatibilität 


zwischen DOS XL und DOS 2.0 bezie¬ 
hungsweise DOS 2,5. 

DOS XL verzichtet auf eine Trennung 
zwischen DOS.SYS und DUP.SYS-File. 
Das heißt aber nicht, daß keine weiteren 
Files nachgeladen werden. Man unter¬ 
scheidet hier zwischen Kommandos, 
die das DOS ohne weiteres Zutun aus¬ 
führt und Anweisungen, die nur durch 
Nachladen eines entsprechenden Files 
ausgeführt werden. Dies hat den Vor¬ 
teil, daß das eigentliche DOS nur wenig 
Speicherplatz im RAM belegt, zumal es 
recht geschickt hinter dem Betriebs¬ 
system ROM abgelegt ist. Im eigentli¬ 
chen Basic-RAM-Bereich befindet sich 
nur noch eine Sprungtabelle, die unge¬ 
fähr 500 Byte beansprucht. Der Nach¬ 
teil dieser Methode besteht jedoch 
darin, daß die extern gelagerten Files 
relativ viel Platz auf der Diskette ver¬ 
brauchen. Es ist also ratsam, auf die 
jeweilige Arbeitsdiskette nur diejenigen 
DOS-Files zu kopieren, die man unbe¬ 
dingt benötigt. Auch das Menü von 
DOS XL gehört zu diesen Files, denn im 
Normalfall arbeitet DOS XL nur mit einer 
Kommandozeile. Hat man alle DOS- 
Befehle im Kopf, läßt es sich auf diese 
Art sogar wesentlich schneller arbeiten 
als mit einem Menü. 

Eine Besonderheit stellt die soge¬ 
nannte Batch-Verarbeitung dar. Man 
kann hierbei beliebigen Text und DOS- 
Anweisungen in einem File zusammen¬ 
stellen. Versehen mit dem Extender 
».EXC« besitzt man dann ein File, das 
man von der Kommandozeile aus aufru- 
fen kann. Das File »STARTUP.EXC«, das 
dem herkömmlichen »AUTORUN.SYS« 
entspricht, ist ein Beispiel für so ein 
Batch-File. Auch häufig verwendete 
Befehlssequenzen lassen sich auf die¬ 
se Art zeitsparend ausführen. Neben 
den kommerziellen Programmen kann 
man natürlich auch auf die verschieden¬ 


sten DOS-Versionen zurückgreifen, die 
beispielsweise als Public Domain-Pro¬ 
gramme erhältlich sind, oder als üstings 
in Zeitschriften veröffentlicht werden. 
Ein Beispiel ist das in Happy-Computer, 
Ausgabe 3/86 als Listing des Monats 
abgedruckte Happy DOS (Bild 5). Ähn¬ 
lich wie bei DOS XL wird nur mit einer 
Kommandozeile gearbeitet. Jedoch 
sind alle Befehle im DOS.SYS-File ent¬ 
halten, so daß ein Nachladen von Files 
entfällt. Trotzdem beansprucht das 
DOS'File nur 37 Sektoren auf Diskette. 
Zusätzlich ist noch eine 12 KByte große 
RAM-Disk integriert, die auch mit den 
normalen Atari-Computern angespro- 
eben werden kann. Es läßt auch zu, wie 
in DOS 2.5, Disketten mit erhöhter 
Schreibdichte zu formatieren. 

Die Entscheidung für ein bestimmtes 
DOS sollte vor allem von der allgemei¬ 
nen Filekompatibilität abhängig ge¬ 
macht werden. Speziell DOS 3.0 sollte 
man trotz seiner relativ guten Benutzer- 
führung also vermeiden. Kommt es auf 
äußerste Platzersparnis im RAM an, 
oder besitzt man ein Laufwerk für dop¬ 
pelte Schreibdichte, so ist man mit DOS 
XL am besten bedient Allgemein kann 
man jedoch sagen, daß DOS 2.5 von 
Atari das derzeit interessanteste Dis- 
ketten-Betriebssystem darstellt. Arbei¬ 
tet man mit Basic-Versionen wie zum 
Beispiel Turbo-Basic XL, kann man auf 
den Sprung ins DOS-Menü und somit 
auf das Laden der DUP.SYS-Datei auch 
meist verzichten. Einige DOS-Funktio- 
nen sind dann nämlich bereits als Basic- 
Befehle vorhanden. Die integrierten 
Utilities und die Diskettenformatierung 
in normaler oder erhöhter Schreib¬ 
dichte, lassen also gute Zukunftsaus¬ 
sichten für DOS 2.5 vermuten. 

(Wolfgang Czerny/ub) 

Eezugsquetle; Compft^op, Gneiaefiaustf. 29, 

4330 Mühäheim/fiuhr. Td. ^02 OS) 407169 




141 
















MAC/65: 

ein Assembler sprintet los! 


Schnell stößt man in Basic an 
die Grenzen der erreichbaren 
Geschwindigkeit. Selbst eine 
optimale Programmierung ver¬ 
leiht Basic keine Flügel. Wer es 
eilig hat, sollte auf einen Assem¬ 
bler zurückgreifen. 

E s gibt sicherlich verschiedene 
Gründe dafür, auf Assembler- 
Programmierung umzusteigen. 
Vorrangig dürfte aber die extreme 
Geschwindigkeitssteigerung gegen¬ 
über einer Hochsprache, wie beispiels¬ 
weise Basic, sein. Auch diejenigen, die 
sich lieber mit der Hardware eines Com¬ 
puters beschäftigen, greifen vorzugs¬ 
weise auf Assemblerprogrammierung 
zurück Denn nicht selten ist es nur 
dann möglich, bestimmte Bauteile im 
Computer anzusprechen und zu pro¬ 
grammieren. Wer beispielsweise den 
Antic, also den speziellen Grafikprozes¬ 
sor im 800X17130XE, optimal nutzen 
möchte, kommt an Assembler nicht vor¬ 
bei. 

Übrigens sind Assembler und Ma¬ 
schinensprache nicht dasselbe Wer 
nämlich in Maschinensprache program¬ 
miert, der ordnet jeder einzelnen Spei¬ 
cherzelle im RAM-Speicher einen 
bestimmten Hexadezimalcode zu. Es 
wird also nur mit Zahfenwerten gearbei¬ 
tet. In Assembler andererseits program¬ 
miert man mit leichter verständlichen 
Befehlen, den sogenannten Mnemo- 
nics. Mit dem Editor eines Assemblers 
gibt man Befehle wie LDA oder CMP 
ein. Diese werden dann vom Assembler 
in Maschinencode umgewandelt. Erst 
wenn dieser Code im Speicher vorliegt, 
kann der Microprozessor die Befehle 
abarbeiten. 

Aber nicht allein Zeitgewinn oder 
auch Platzersparnis sind gute Gründe 
für die Anwendung von Maschinen¬ 
sprache. Um beispielsweise die Fähig¬ 
keiten des Atari-Betriebssystems aus¬ 
zureizen, muB man zumindest einige 
Programmteile in Maschinensprache 
schreiben. 

Ob man eine kleine Unterroutine für 
ein Baslc-Programm oder ein ganzes 
Programm vollständig in Maschinen¬ 
sprache schreiben will, ein Assembler 
ist auf jeden Fall eine lohnende Investi¬ 
tion. 

Von der Firma OSS {Optimized Sy¬ 
stems Software) gibt es für etwa 250' 


Mark das Programmodul MAC/65k Es 
enthält alle wesentlichen Bestandteile 
eines Assemblers - nämlich einen zei- 
lennummernorientierten Editor, ähnlich 
wie in Basic, den eigentlichen Assem¬ 
bler und einen Monitor, über den man 
seine Maschinensprachprogramme 
austesten kann. 

Die Modulform bietet mehrere wich¬ 
tige Vorteile gegenüber einem Pro¬ 
gramm auf Diskette oder Kassette. So 
kann man beispielsweise nach Lxist und 
Laune mit jeder Kombination von Dis¬ 
kettenlaufwerken arbeiten, da man ja in 
der Wahl des Diskettenbetriebssy¬ 
stems völlig frei ist. Außerdem muß man 
nicht nach einem eventuellen System¬ 
absturz, der ja bei Programmierung auf 
Maschinenspracheebene relativ schnell 
passieren kann, den Assembler neu 
laden. Darüber hinaus hat es OSS 
durch Umschaltung zwischen ver¬ 
schiedenen Speicherbänken ge¬ 
schafft, den Speicherplatzbedarf von 
MAC/66 auf 8 KByte zu beschränken. 

Nun aber zum eigentlichen Programm 
- beginnen wir mit dem Editor: 

Genau wie im normalen Atari-Basic 
hat man es mit einem zeilennummem- 
orientierten Editor zu tun. Er ist jedoch 
um einige sehr wichtige Kommandos 
erweitert So kann man mit FIND 
bestimmte Programmteile suchen, mit 
REP ersetzen, mit DEL Programmberei¬ 
che löschen und mit REN UM das 
gesamte Programm neu durchnumerie¬ 
ren. Auch ein Befehl zur automatischen 
Erzeugung von Zeilennummern fehlt 
nicht Eine praktische Sache ist, daß 
MAC/65, genau wie Atari-Basic, die 
Programmzeilen unmittelbar nach Ein¬ 
gabe auf ihre Richtigkeit überprüft und 
sofort einen eventuellen Fehler anzeigt 

Nun zum Assembler, den man mit 
dem Kommando ASM startet. Dabei 
kann man noch angeben, woher - falls 
nicht aus dem RAM-Speicher - der Pro¬ 
grammtext genommen werden soll, 
wohin die Ausgabe gehen soll und 
wohin der erzeugte Maschinencode 
geschrieben wird. 

Selbstverständlich versteht MAC/65 
alle normalen 6502-Mnemonics. 

Datenfelder kann man einfach mit 
dem Befehl ».Byte« einfügen - wobei 
man entweder dezimale, hexadezimale 
oder ASCH-Darstellung wählen (und 
mischen) kann. Sehr nützlich ist dabei 
die Möglichkeit, zu allen errechneten 
Werten eine Konstante zu addieren. 


Weitergehende Befehle in dieser Rich¬ 
tung sind ».SBYTE« (Zeichen in interner 
Darstellung), ».WORD« (Doppelbyte), 
».DBYTE« (Doppelbyte in umgekehrter 
Schreibweise), ».CBYTE« {Text mit 
invertiertem letzten Zeichen) und 
».FLOAT« {Fließkommazahl). Der 
»MAC/6 5«-Assembler erlaubt auch das 
Arbeiten mit Markierungen (Labels) 
innerhalb eines Programms. Die Länge 
einer Zeichenkette läßt sich zum Bei¬ 
spiel folgendermaßen berechnen: 

1000 TEXT .BYTE "Ttappy Computer'' 
1010 TH[T_LEN = *-TEXT 

Auch zu Multiplikationen, Divisionen 
oder Bitoperationen in Ausdrücken ist 
der »MAC/65« fähig. 

Nützlich ist die konditionelle Assem¬ 
blierung. Mit Hilfe dieser Funktion las¬ 
sen sich bei der Assemblierung be¬ 
stimmte Programmteile von irgendeiner 
Bedingung abhängig machen. Hat man 
beispielsweise folgende Variablen fest¬ 
gelegt: 

1000 DEUTSCH=1 
1010 VERSI0N=DEUTSCH 
dann kann man später mit 
2000 .IF VERSION=DEÜTSCH 
2010 .BYTE ''Bitte Diskette 
einlegen" 

2020 -ELSE 

2030 .BYTE "Please Insert disk" 
2040 .EMDIF 

zwischen den verschiedenen Fällen 
unterscheiden. So braucht man keine 
verschiedenen Quelltexte, um unter¬ 
schiedliche Versionen eines Pro¬ 
gramms zu schreiben. 

In diesem Zusammenhang ist die 
Funktion ».REF« wichtig. Mit ihr kann 
man innerhalb einer ».IF«-Anweisung 
feststellen, ob ein bestimmtes Label 
innerhalb des Textes bereits benutzt 
wurde. Dies gestattet Unterroutinen nur 
dann mit einzubinden, wenn sie tat¬ 
sächlich gebraucht werden. Zusammen 
mit der ».INCLUDE«-Funktion, mit der 
sich Programmteile von Diskette einbin¬ 
den lassen, kann man auch Unterpro¬ 
gramme aus Bibliotheken nutzen. 

Ein wichtiges Mertynal von 
»MAC/65« ist die Fähigkeit, Makros zu 
verarbeiten (daher auch der N^e 
MAC/65), Mit Hilfe von Makros kann 
man mehrere normale Assemblerbe¬ 
fehle unter einem Wort zusammenfas¬ 
sen. Es lassen sich auch Parameter 
übergeben und verarbeiten. Ein Bei¬ 
spiel für eine einfache Makrodefinition: 

















1000 .MACRO JEQ 
1010 BNE ?JEQ 
1020 JMP %1 
1030 ?JEQ 
1040 .ENDM 

Zunächst wird hierbei der Name des 
Makros festgelegt. ^EQ« soll hier 
einen Befehl simulieren, der im norma¬ 
len 6502*Befehlssatz nicht vorhanden 
ist, nämlich einen konditionellen 
Sprungbefehl zu einer absoluten 
Adresse {in diesem Beispiel, falls die 
Abfrage zutrifft). Falls nicht (Branch Not 
Equal), wird an das Ende der Makrodefi¬ 
nition verzweigt. Das Programm läuft 
also beim nächstfolgenden Befehl wei¬ 
ter. Im anderen Fall wird ein Sprung an 
die als erster Parameter angegebene 
Adresse durchgeführt. Der Aufruf könn¬ 
te dann so aussehen: 

2000 LDA ZAEHLER 

2010 CMP #HOECHSTWERT 

2020 JEQ KEINELVERAENDERUNO 

Hier kann man übrigens auch sehr gut 
sehen, daß Assemblerprogramme nicht 
unbedingt schwer lesbar sein müssen. 
Immerhin kann man, soweit es der Spei¬ 
cherplatz erlaubt, die Labelnamen be¬ 
liebig lang und damit ziemlich selbst¬ 
erklärend gestalten. 

Ein weiteres Beispiel wäre ein Makro 
zur Addition von 16-Bit-Werten, für die 
es bekanntlich beim 6502 keinen eige¬ 
nen Befehl gibt: 

1000 .MACRO AIW ;Add Tmniediate 
to Word 

1010 ,IF ^2=2 ;Eins addieren? 

1020 INC %1 

1030 BNE ?N0_INC 

1040 INC ^1+1 

1050 N0_IKfC 

1060 .ELSE 

1070 LDA %1 

1080 CLC 

1090 ADC #< %2 
1100 STA 
1110 LDA %1-Hl 
1120 ADC #> g2 
1130 STA ^1+1 
ll40 .ENDIF 
1150 .ENDM 

Hier wird zuerst geprüft, ob das 
zweite Argument, also die Zahl, die 
addiert werden soll, den Wert 1 enthält. 
In diesem F^ll kann der etwas kürzere 
Weg über die Inkrementierung der bei¬ 
den Bytes gegangen werden. In allen 
anderen Fällen (>.ELSE«-Abfrage) wer¬ 
den der Reihe nach zunächst das nie* 
derwertigere und dann das höherwerti- 
gere Byte addiert. Man beachte, daß 
Makros auch eine Optimierung des Pro¬ 
grammtextes vornehmen können, wenn 
sie sinnvoll konditionell definiert sind. 
Obwohl im Programmcode nun jedes 
Mittel zur Kürzung des Codes vorge¬ 
nommen werden kann, sieht der tat¬ 
sächliche Quelltext wesentlich über¬ 
sichtlicher aus -- und ist zudem noch 


kürzer! Was will man mehr? Auch hier 
ein Beispiel für die Benutzung dieses 
Makros: 

2000 AIW PHT,7680 
Man vergleiche dies mit: 

2000 LDA PNT 
2010 OLG 

2020 ADC # < 7680 
2030 STA PNT 
2040 LDA PNT+l 
2050 ADC #> 7630 
2060 STA PHT+1 

Mit Makros kann man aber nicht nur 
oft benutzte Kombinationen von Befeh¬ 
len, sondern auch Befehlsfolgen, die in 
einem eigenen Programm regelmäßig 
auftreten, verkürzen. Auch zum Aufbau 
von Datentabellen sind Makros nütz¬ 
lich, da sich auch die übergebenen 
Parameter direkt in Daten umwandeln 
lassen. 

Ein weiterer Pluspunkt von Makros 
ist, daß es Umsteigern von Basic 
erleichtert wird, in Assembler zu pro¬ 
grammieren - Makrobibliotheken, die 
Makros wie »PRINT«, »INPUT« oder 
»GRAPHICS« enthalten, gibt es zur 
Genüge 

Kommen wir zum eigentlichen 
Assemblerteil von »MAC/65«. Hier las¬ 
sen sich für den Quelltext, das Listing 
und den erzeugten Code beliebige Peri¬ 
pheriegeräte festsetzen. Dabei kann 
man den Quelltext auch direkt aus dem 
Speicher übernehmen. Oder man legt 
den generierten Maschinencode direkt 
im RAM-Speicher ab. Dabei muß man 
natürlich darauf achten, den im Spei« 
eher befindlichen Programmtext nicht 
zu überschreiben. Das Wichtigste ist 
natürlich die Assembliergeschwindig- 
keit Dazu ein Beispiel: Für etwa 100 
KByte Quelltext {wobei zu beachten ist, 
daß MAC/65 die Befehle in Tokens ver¬ 
wandelt und daher relativ wenig Platz 
für Quelltexte verbraucht) benötigt der 
Assembler etwa drei Minuten. In die¬ 
sem Zeitraum wurde der gesamte 
Quelltext von Diskette gelesen und der 
erzeugte Code wiederum auf Diskette 
geschrieben. Hier darf man nicht ver¬ 
schweigen, daß die meiste Zeit beim 
Assemblieren durch Zugriffe auf ex¬ 
terne Speichermedien verlorengeht 
Deshalb lassen sich bessere Ergeb¬ 
nisse erzielen, wenn man auf dem Atari 
130 XE mit der RAM-Disk unter DOS 
2.5 arbeitet. 

Ein anderer wichtiger Gesichtspunkt 
ist, daß der »MAC/65«-Assembler, 
nachdem er mehrmals verbessert 
wurde, als fast fehlerfrei bezeichnet 
werden kann. Dies bestätigt mehrjäh¬ 
rige Erfahrung. Was wäre schlimmer als 
ein Assembler, der bereits beim Assem¬ 
blieren Fehler in den Maschinencode 
bringt? 

Doch der Assemblerteil von 
»MAC/65« hat noch einen weiteren 


Leckerbissen zu bieten: Für die Aus¬ 
gabe des Protokolls beim Assemblieren 
auf Druckern stehen vielfältige Funktio¬ 
nen zur Verfügung. Man kann sogar den 
Inhalt und die Form des Ustings beein¬ 
flussen. So ist es zum Beispiel kein Pro¬ 
blem, die Erzeugung des Ustings für 
bestimmte Teile des Programms abzu¬ 
schalten oder bei Makros alle nicht 
wichtigen Teile wegzulassen. Außer¬ 
dem lassen sich die Seitenlänge und 
-breite sowie der Steuercode für Sei¬ 
tenvorschub festlegen. Diese Angaben 
befähigen den »MAC/65«, ein über¬ 
sichtliches Listing mit Seitennumerie¬ 
rung und Seitenüberschriften zu erzeu¬ 
gen. Wahlweise kann auch noch eine 
Cross-Reference-Uste ausgestellt wer¬ 
den. So könnte in alphabetischer Rei¬ 
henfolge für jedes benutzte Label nicht 
nur der erzeugte Wert, sondern auch 
jedes Auftauchen im Programm mit 
Seiten- und Zeilennummer angegeben 
werden. Eine sehr nützliche Funktion, 
um zeitaufwendige Fehlersuche zu 
ersparen. 

Der dritte Bestandteil vom 
»MAC/6 5«-Assembler ist der Monitor 
Er nennt sich »DDT« {Dunions Debug¬ 
ging Tool), da er durch Eingabe von DDT 
aufzurufen ist. Hier sieht man sofort den 
ersten großen Unterschied zu konven¬ 
tionellen Debuggern. Statt einen nor¬ 
malen Textbildschirm zu verwenden, 
erzeugt er ein spezielles Bildschirmfor¬ 
mat Dieses ist sehr übersichtlich und 
informativ und beinträchtigt trotzdem 
die Übersichtlichkeit des zu bearbei¬ 
tenden Programmbildes nicht Auf dem 
verhältnismäßig kleinen Bildschirmaus¬ 
schnitt kann ein Teil des Speichers in 
disassemblierter Form oder in hexade¬ 
zimaler Schreibweise betrachtet wer¬ 
den. Weiterhin erfolgt noch die Aus¬ 
gabe der Positionen der vier Break¬ 
points sowie der Prozessor- und Sta¬ 
tusregister. Hier fehlen zwar Ein- und 
Ausgabefunktionen, dafür gibt es aber 
einige unübtiche Bonbons. So kann 
man mit START das Programm an der 
Stelle fortsetzen, an der sich der PC 
(Program^Counter) befindet Mit 
SELECT erfolgt ein Umschalten zwi¬ 
schen dem DDT-Bildschirm und dem 
vom Programm erzeugten Bildschirm, 
und mit OPTION lassen sich noch ein¬ 
zelne Maschiriensprachbefehle abar¬ 
beiten. 

Eine lästige Eigenschaft von DDT soll 
hier nicht verschwiegen werden. Da der 
Speicherausschnitt im Bildschirmfen¬ 
ster nur mit den Cursortasten um ein¬ 
zelne Zeilen verschoben werden kann, 
ist es leider ein Unding, bestimmte Pro¬ 
grammteile schnell zu finden. 

Zusammenfassend kann man jedoch 
sagen: DDT ist zum Bearbeiten von Pro¬ 
grammen, die sich bereits im Speicher 
befinden, prädestiniert 
















Als Zusatz zum »MAC/65«'Assern- 
bler wird von OSS eine Diskette mit 
Hilfsprogrammen und vordefinierten 
Makros (»MAC/65 Toolkit«) angeboten. 
Hier findet man beispielsweise Makros 
für alle normalen Ein- und Ausgabefunk¬ 
tionen. normale und Player/Missile- 
Grafik und Arithmetik. Darunter befin¬ 
det sich auch ein Programm, das die 
Kommandozeile von DOS XL analysiert 


und somit das Schreiben von zusätzli¬ 
chen Kommandos für DOS XL wesent¬ 
lich erleichtert. Ein komplettes Datei¬ 
kopierprogramm, das fast ausschließ¬ 
lich mit Makros geschrieben ist, fehlt 
auch nicht. 

Man kann mit gutem Gewissen 
sagen, daß MAC/65 für jeden, der sich 
in Assembler versuchen will, hervorra¬ 
gend geeignet ist. Dabei kommen auch 


Anfänger nicht zu kurz, die sich in der 
Basic-ähnlichen Umgebung wohlfühlen 
werden. Ein fortgeschrittener Program¬ 
mierer wird nach einigen Stunden 
Arbeit mit »MAC/65« nicht mehr auf die¬ 
sen komfortablen Assembler verzich¬ 
ten wollen. (Julian F. Reschke/wb) 

Bezugsquellen: 

Münzenlotier, TÖlzer Str. 4, 8l50 Holzkirchei-i, 

Tel, (03024)1314 

Cofnpy-Shüp, Gneisenaustr, 29, 4330 Mühlhetm, 

Te). (0208) 71 G9 


»SynF He+ 

Dateiverwaltung total 


Vor allem durch eine gelungene 
Benutzerführung und ein gut 
durchdachtes Konzept hebt sich 
»SynFile+« angenehm von an¬ 
deren Dateiverwaltungen atx 

H ' at man schon maJ einen Heim¬ 
computer zu Hause stehen, 
sollte man ihn nicht nur zum 
Spielen nutzen. Schließlich gibt es eine 
Reihe von sinnvollen Anwendungen, 
die sich auch auf einem Atari realisieren 
lassen. So zum Beispiel eine Dateiver¬ 
waltung wie :^ynFile+«. Mit ihr kann 
man Daten aller Art übersichtlich und 
sauber verwalten. Sei dies nun ein 
Adressenverzelchnis, eine Platten¬ 
sammlung oder Mutters Kochrezepte, 
das spielt keine Rolle. Aber auch Kun¬ 
dendaten oder Verkaufsstatistiken 
kann man mit ein und demselben Pro¬ 
gramm verwalten. 

:&SynFile+« wird auf Diskette geliefert 
und ist für Atari Computer mit minde¬ 
stens 48 KByte Speicher gedacht. Man 
erhält noch eine rund 120 Seiten 
umfassende Bedienungsanleitung in 
englischer Sprache, die jedoch durch 
Aufmachung und Gliederung gut zu 


handhaben ist. Auch die Benutzerfüh¬ 
rung des Programms ist natürlich in 
Englisch gehalten. Dies stört aber nicht 
so sehr, da die Bedienung von 
»SynFile+« vollständig menügesteuert 
ist. 

Das Funktionsprinzip von 3s^ynFile+« 
ist eigentlich ganz einfach. Am besten 
stellt man sich das Programm als Kartei¬ 
kasten vor. Jede Karteikarte, auf der 
man Daten eintragen kann, umfaßt 21 
Zeilen mit je 80 Spalten. Auf dieser 
Karte trägt man zuerst die benötigten 
Datenfelder ein. Welche Felder man 
verwendet und wie man sie benennt, 
hängt natürlich vom eigenen Bedarf ab. 
Baut man sich beispielsweise ein 
Adressenverzeichnis auf, so würden 
die Felder ^Name«, ^Vorname«, »Wohn¬ 
ort«, »Telefon« und so weiter lauten. Wie 
man diese Felder auf der Karte plaziert, 
bleibt dabei den eigenen Wünschen 
und Vorstellungen überlassen. Bei 
jedem Feld gibt man zudem noch die 
maximale Länge an, die jeder Eintrag 
umfassen darf. Außerdem muß der Typ 
des jeweiligen Feldes festgelegt wer¬ 
den. So soll ein Name beispielsweise 
später nur aus Buchstaben bestehen. 


Andererseits setzt sich eine Telefon¬ 
nummer aus numerischen Werten 
zusammen. Die Typenzuweisung birgt 
gleich zwei Vorteile in sich. Einmal kann 
das Programm dadurch leichter auf spä¬ 
tere F^lscheingaben reagieren. Gibt 
man beispielsweise bei einer Telefon¬ 
nummer versehentlich einen Buchsta¬ 
ben ein, so wird diese Eingabe auf¬ 
grund des nicht übereinstimmenden 
Feidtyps nicht akzeptiert. Zudem ver¬ 
fügt man bei »SynFile4-« über eine 
Reihe von Feldtypen, die das Arbeiten 
mit dem Programm wesentlich komfor¬ 
tabler machen. So gibt es beispiels¬ 
weise den Typ »Date«, also Datum. Hier¬ 
bei sind nur Eingaben erlaubt, die tat¬ 
sächlich auch einen Bezug zum Datum 
haben. Gibt man also »99/11/85 ein, 
reagiert »SynFile+« daraufhin mit einer 
Fehlermeldung. Allerdings muß ein 
Datum bei »SynFile+« in der amerikani¬ 
schen Notierung, also erst der Monat, 
dann der Tag und zuletzt noch das Jahr, 
eingegeben werden. 

Der Typ »Look-Up« wiederum erlaubt 
nur die Eingabe solcher Werte und 
Texte, die man vorher in einer Tabelle 
exakt festgelegt hat. Soll in einem Feld 


ßlid 1. So kann beispielsweise eine selbst aufgebaute Eingabe¬ 
maske mit j*SynFile-H« aussehen 



Bild 4. in allen Menüs von »SynFtle-i-« wählt man die Unter¬ 
punkte mit Hilfe der Cursortasten 
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NAME: Wurcn 
VORNAME: Peter 

STRASSE: Petersstr. NR,; 11 

PLZ-. 2222 ORT; Wurfr-h^usen 
TELEFON: 2345 

GEBURTSTAG: 01/01/Ql GESCHLECHT: M 
BEMERKUNG: wurmt 


ßltd 2. Ein Datensatz als Hardcopy 

zum Beispiel das Geschlecht einer Per¬ 
son eingetragen werden, so legt man in 
der Tabelle die Eingaben »m« für männ¬ 
lich und »w« für weiblich fest. Alle ande¬ 
ren Eingaben werden dann ignoriert. 
Mit Hilfe des Typs »Conditionak kann 
man dann noch einen Feldinhalt von 
einer vorher definierten Bedingung 
abhängig machen. Soll mit dem Inhalt 
eines oder mehrerer Felder gerechnet 
werden, kommt das Ergebnis dieser 
Berechnungen in ein Feld des Typs 
»Computed«. 

Sobald die Definition aller Felder 
abgeschlossen ist, hat man eine fertige 
Eingabemaske, wie sie in Bild 1 zu 
sehen ist. Sollte man feststellen, daß 
die Maske noch nicht in der gewünsch¬ 
ten Form vorliegt, kann man sie natür¬ 
lich auch nachträglich noch ändern. 
Man ordnet der Datei einfach einen 
anderen Dateinamen zu und speichert 
sie auf Diskette Als nächsten Schritt 
indiziert man ein oder mehrere Felder 
eines Datensatzes. Bet der Indizierung 
wird der Inhalt des jeweiligen Feldes in 
ein eigenes File abgelegt. Auf diese 
Weise muß das Programm beim Suchen 
oder Sortieren von Datensätzen nicht 
die gesamte Datei, sondern nur die 
jeweilige fndexdatei durchforsten. Bis 
zu 16 Felder können gleichzeitig indi¬ 
ziert werden. Dabei ist jedoch darauf zu 
achten, daß der Speicherplatz auf Dis¬ 
kette mit der Zahl der Indexfelder rapide 
abnimmt. Auch ist die Zahl der Daten¬ 
sätze, die eine Datei umfassen kann, 
vorwiegend durch die Größe des Index¬ 
feldes begrenzt. Im Gegensatz zu den 
eigentlichen Daten muß das Indexfeld 
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Bild 3. Eine Liste aller Datensätze lä&t sich auf einem Drucker ausgeben 


nämlich im Speicher des Computers 
Platz finden. Die Datensätze einer einzi¬ 
gen Datei hingegen können auf bis zu 
16 Disketten abgelegt werden. 

Hat man seine Daten eingegeben, 
kann man damit natürlich einige Mani¬ 
pulationen vornehmen. So lassen sich 
die Datensätze nach steigender oder 
fallender Fölge sortieren. Einzelne 
Datensätze kann man auch mit Hilfe von 
verschiedenen Suchlc'itenen schnell 
finden. Gibt man mehrere Suchkriterien 
an, kann man wählen, ob alle Bedingun¬ 
gen gleichzeitig oder nur eines der Kri¬ 
terien erfüllt sein muß. 

Will man mit Hilfe einer Textverarbei¬ 
tung Serienbriefe drucken, können die 
Daten, die in die Briefe eingefügt wer¬ 
den sollen, natürlich einer SynFile- 
Datei entnommen werden. Ein Beispiel: 
Man schickt ein Rundschreiben an alle 
Personen, die in einer Adreßdatei ge¬ 
speichert sind und in einer bestimmten 
Stadt wohnen. Anschließend gibt man 
noch als Suchkriterium die gewünschte 
Stadt ein. Aus den gefundenen Daten¬ 
sätzen werden nun Namen und Adres¬ 
sen in ein separates File geschrieben. 
Eine Textverarbeitung wie der »Atari- 
Schreiber« beispielsweise, kann nun 
diese Datei lesen und deren Daten in 
die einzelnen Briefe eintragen. 

Die Inhalte einer Datei kann man 
natürlich auch auf einem Drucker aus¬ 
geben. Dies kann grundsätzlich auf drei 
Arten geschehen. Einmal kann man 
quasi eine Hardcopy des momentan auf 
dem Bildschirm befindlichen Datensat¬ 
zes anfertigen (Bild 2). Will man meh¬ 
rere Datensätze ausdrucken, kann man 


die einzelnen Felder entweder neben¬ 
einander oder untereinander darstellen 
(Bild 3). Auch beim Ausdruck kann man 
sich die jeweiligen Datensätze mit Hilfe 
von Suchkriterien beliebig zusammen- 
stellen. Auf diese Weise lassen sich 
auch ohne weiteres Adreßetiketten 
beschriften. Leider sieht »SynFileH-« 
nicht die Möglichkeit vor, eine Druck¬ 
maske zu speichern. 

Die Benutzerführung von »SynFileH-« 
ist vorbildlich zu bezeichnen. Am 
unteren Bildrand findet man drei Haupt¬ 
menüpunkte. Mit Hilfe der Cursortasten 
wählt man sich den jeweiligen Punkt 
aus. Drückt man dann RETURN, so 
erscheint das jeweilige Untermeno in 
Form eines Fensters auf dem Bild¬ 
schirm (Bild 4). Die einzelnen Unterme¬ 
nüpunkte werden wiederum mit den 
Cursortasten angewählt. Auch die 
Typenzuweisung bei der Felderdefini¬ 
tion wird über ein Untermenü durchge¬ 
führt. Mit diesem Bedienungsschema 
erreicht »SynFile+« eine Übersichtlich¬ 
keit, wie sie bei kaum einem Programm 
für Atari-Computer zu finden ist. 

Mit Ausnahme der etwas mangelhaf¬ 
ten Druckeranpassung kann man 
sSynRle+« also kaum Schwächen 
nachsagen. Ein echtes Kaufhindernis 
dürfte jedoch der Preis dieses Pro¬ 
gramms sein. Bei rund 220 Mark sollte 
man doch eine rentable Anwendung für 
dieses Programm vorweisen können. 

(Wolfgang Czerny/wb) 

CompySi^op^ Gneisenaustr. 29, 4330 Mühlhelni/Ruhr, 

Tel. (0208) 4971 69 

Münzenloher. TölzerStr. 4, S150 Holzkirchen, 

Tel. (06024) 1614 






















































J. Schutta/w, Pest 

Dntcker-Hand&iich 

4 anu 3 r 1^5.188 Seiten 

WelcJicn Druckef brauche ich? Einen 
schnellen, einen hsnsen, einen billigen, 
einen korrespomferrzfähigen? Weicher 
Drucker kann problemlos an meinen 
Personal- oder Homecomputer anpe- 
schbssen wenden? Wie funktioniert so 
ein Dfucker überhaupt? 

Lesen Sie dieses Buch, und Sie wissen 
auf alle diese Fragen eine fundierte Anl- 
wontl 

• Endlich ein infürmativer Leitfaden für 
alle, die vor dem Kauf eines Druckeis^ 
stehen. 

BOSL-Nr. MT 742 
ISBN 8-89090-077-1 DM 
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J. WUlis/M. Miller 

Computertechnik ohne 
Geheimnisse 

Novamher 1984^ 813 Seiten 
Ob Sie schon einen Computer besitzen, 
seine Anschaffung planen oder sich nur 
mal aus Interesse mit diesenn faszinie¬ 
renden Gebiet auseinandersetzen wol¬ 
len: in diesem Buch finden Sie die Ant¬ 
wort auf alle Fragen zur Computertech- 
nilc Das Buch beschreibt den derzeitf- 
gen Stand der Technik, gibt AufsohluB 
über die Entwicklung der Computer und 
verschafft Ihnen eine Marktübersicht 
über Hand- undSoftware {wenn Sie nicht 
wissen, was das ist, dann lesen Sie die¬ 
ses Buch!}. Und es beantwortet auf 
amüsante Weise die oftgesleJIte Frage: 
»Was. 2 um Kuckuck, kann ich eigentlich 
mit so einem Ding machen?«- 
• Informatiorren zum Thema Computer 
von allgemeinem Interesse 
Best.-Nr. MT 716 
fSBN UlU 
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cmjpun^HisajM^ 

VON PRORS FÜR PROHS 


WWPmi^EgÖNU^ 

Das aktuelle Fachmagaan 
für Personal-Computer. 

'k Wenn Sie jetzt den Schritt vom 
Heim-Computer zur professionel¬ 
len Anwendung eines Personal 
Computers planen 

k Wenn Sie beruflidi oder privat 
bereits einen Personal Computer 
benutzen 

k Wenn Sie regelmößig Informotio- 
nen über das aktuelle Produkt- 
ongebot benötigen 

k Wenn Sie selbst programmieren 

* Wenn Sie professionelle Hard- 
und Softwaretests suchen 

k Wenn Sie Ihr eigenes System 
möglichst effizient einsetzen wol¬ 
len 

dann ist »Computer persönlich«, das 
oktuelle Fachmagazin für Personal 
Computer, gmiau Ihre Zeitschrift. 

Die konsequente Ausrichtung auf 
professionelle Anwendungen bietet 
Ihnen alle wichtigen Informationen. 

Von Profis für Profis! 

»Computer persönlich« gibt es alle 
14 Toge neu bei Ihrem Zeltschriften¬ 
händler oder im Computer-Fach- 
gesdiöft. 


PC MAGAZIN 

Einzige Wochenzeitung für Persona! 
Computer im IBM-Standord. 

Sie beschäftigen sich beruflich oder 
privat mit dem Einsatz und der 
Anwendung von Personal 
Computern? 

Sie sind an aktuellen, professionel¬ 
len Informotionen über IBM-PCs, 
kompatible Systeme und deren pro¬ 
fessionellen Einsatz interessiert? 
Dann ist das PC Aftagazin genau auf 
Ihre persönlichen Bedürfnisse 
zugeschnitten. 

Es wird von anerkennten und er¬ 
fahrenen Fachjoumalisten für pro¬ 
fessionelle Anwender und Fachleute 
geschrieben. 

Es berichtet jede Woche ausschließ¬ 
lich über Computer im IBM-Standord 
und kompatible Systeme, über 
Hord- und Softvmreneuheiten. 

Es bringt ausführliche Testfoerichte 
und gibt Ihnen wichtige Informatio¬ 
nen über Netzwerke sowie die 
PC/Host-Verbindung. 

Nur diese Spezialisierung ermöglicht 
eine gezielte Berichterstattung und 
bietet genügend Raum, um auf An¬ 
wenderprobleme spezifisch eingehen 
zu können. 

Von Profis für Profis! 

Und das jeden Mittwoch neu bei 
Ihrem ZeHschriftenhöndler oder im 
Computer-Fachgeschäft. 


GUTSCHEIN 

für ein Kostenloses Prot>ee?(emi>iar 

Senden Sie mir die neueste Ausgabe der von mir angekreu^fen Zeitscndfi kostenlos als Probeeicenaplar 

□ COMPUTER PERSÖNUCH □ PC-MAOAZIH 


V^nn mir Computer pcrsönEich zusagt und 
ich es regelmäßig weileftKJzichcn möchte, 
brauche ich nichts zu tun: Ich erhalte 
Computer persönlich dann regelmäßig alle 
14 Tage per Rost frei Haus geliefert und 
bezahle pro Jahr nur DrM 96,—- Zustellung 
und PostgQbühfen übernimnnt der Vertag. 


Vorname/Name 


Straße PLZj'Ori 


Wenn mir das F^OMagazin zusagf und ich es 
regelmäßig werterbezichen möchte, brauche 
ich nichts zu tun: Ich erhalte mein PC^Wagazin 
dann regelmäßig jede Woche per Post frei 
Haus gelidert und tiezahte pro Jahr nur 
DM 155.-“. Zustellung und RostgebOhren 
übembdint der \feriag. 

Mir ist twkannt, daß ich diese Gestellung innerhalb 
von 8 Tagen bei der EBestellad resse widemiten 
Kann und bestätige dies durch meine zweite 
Unterschrift. Zur Wahrung der Frist genügt die 
rechtzeitige Ahsendung des Widerrufs. 


Datum T. Unterschritt Datum 2. Unterschrift 

Gutschein ausfüllen, ausschneiden. auf Postkarte kleben und emsenden an: 
Markte Technik Vertag Aktiengesellschaft. Vertrieb, Rostfacn i3Ü4, 8013 Haar. 
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MarHÄIMinik 

ADIRIST- 

S<ritwaiie 


v\^asia-3D 

mit MasIMerge für die 
AIARI SPCorrputer 

3W-Format 




Der BestseHer unter den Textverarbeitungsprog rammen bietet Iftnen bild- 
schrrmorientierte ForEnatierung, deutschen Zeicbensatz und DIH-Ta$tatur 
sowie integiierte Hilfstexte Mit MatlMeEge können Sie Serienbriete mit 
persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben und 
auch die Adreßaufkleber drucken. 

Jetzt gibt es WordStar/MailHIerge für den ATARI ST! 

Damit eroflnen sich Ihnen alle Möglichkeiten, Ihren ATARI ST für 
professiGnelle Textverarbeitnng einzusetzen. Zum Superpreis! 

"Wordstar für den ATARI ST wird auf einer SVz-Zoll-Dlskette geliefert. 

Sie beinhaltet: 

- CP/M Z SO-Emulator 

- WordStar/MallMerga-Qateien 

Hardware-Anforderungen: ATARf ST-Computer, 80-Zeichen-Monltor, 
ein 3V2''"Dtekettentaufwerk, beliebiger Drucker mit Ceiitfonic5-Schnittste[[& 


Wordstar ist an den ATARI ST bereits fertig angepaSt und läSt sich 
begueni über Funktiunstasten steuern. 


Besfen-Mr. »S1D6 * 

Für sagenbafte Dm 199p~ 

MwSt. Unwrbiitdijclie PreiseiiipfeMung. 
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MaOct^TcDlimk-SoftwafepiiiiIakte ertialten Sie ia (teß Cßniptiter-Abteiliingeii der 
Xatifliäuscr und oot Cempute^bapL 

W^nn Sie dttekt bdm Verlag bestellen weilen: Nur per Nechnalime^ gegen VoraisS' 
kasse, Vemecbnengsscheck oder der eingatieneteR Zählkarte ln diesem Heft. 
Be^eßtingen ün Schwer^ Marktic Technik Vertriebs AC, Kpllersliasse 3, 

CITO30O Zug, 'S‘042/41S65fi; Österreich: Ueheneuter Media Handels- und Verlags- 
ges. mbH, AJser SiraBc 24,1001 ViTien, Tel. 0222/481530-0 

Markt&Technik 

Atari l^-Software 

Kans-Pjnsel-Stiaae 2, 0013 Haar bei München 








